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NEUHEITEN 

mit LADEGARANTIE für 

Colour Genie 

Das Colour Genie Buch 

Das COLOUR GENIE BUCH aus unserem Verlag bringt unter anderem : Neue und alte ROM's im Ver- 
gleich, alle Z80 Maschinenbefehle in übersichtlicher Form, Joysticks-selbst gebaut, was braucht man 
an Software, wie arbeitet man mit dem Bildschirmsteuerungs-IC, wie programmiert man den PSG 
(Programmier. Sound Generator), wie baut man Maschinenprogramme in Basicprogramme ein, alles 
mit vielen Beispielprogrammen, viel Software zum abtippen, und, und, und ... 

Das COLOUR GENIE BUCH von uns müssen Sie haben! Es bringt Ihnen viele Informationen, die Sie 
nötig brauchen. Für Anfänger und Profis! 

Subskriptionspreis bis zum 15.Juni 1984: Nur 39,-- DM ! ! ! Ab 16. Juni 1984 49,-- DM. 

Also bestellen Sie sofort ! ! I Lieferbar ab 15.6.1984. 

Screen- Editor 

Ärgern Sie sich immer noch mit dem Edit-Befehl rum? Das muß aber nicht mehr sein ! I ! 

Der beste Bildschirmeditor, den wir kennen, kostet bei uns nur 29,-- DM auf Cassette und nur 36,-- DM 
auf Diskette! DAMIT HABEN DIE QUALEN EIN ENDE!!! 

Spooler 

Für Genie I, II usw. 

Warten Sie nie mehr auf Ihren Drucker! Unser Spooler ist geeignet für alle Speichergrößen, er hat 
einen beliebig einstellbaren Puffer, er arbeitet mit allen bekannten Betriebssystemen, auf Diskette und 
Cassette! Preis Disk nur 49,-- DM! Preis Cassette nur 39,-- DM! Bei Diskette unbedingt verwendetes 
Betriebssystem angeben ! 

Ramschkiste: 4141« 

Hier wollen wir Ihnen ein paar Programme anbieten, die nicht mehr unserem Qualitätsstandard ent- 
sprechen, und die wir deshalb ausverkaufen. Für diese Programme gilt unsere Ladegarantie nicht! 

Alle Programm liefern wir nur auf Cassette und nur solange der Vorrat reicht! 

Jedes Programm zum Preis von DM 9,90! ! ! Bestellen Sie sofort, der Ramschkistenpreis gilt für: 

Paclab I, Paclab II, Dame, Reversi, Vier gewinnt und Othello! 

Ausserdem immer noch: SUPER-ASSEM, ASTRAY, VORTEX, PAC-BOY, COLDAT und alle unsere 
anderen Superprogramme, fordern Sie unbedingt unsere kostenlose Liste an I 

Haben Sie ein gutes Programm für das Colour Genie? Egal ob Basic, 
Maschinensprache oder compiliertl Wenden Sie sich an unsl Wir 
bieten Ihnen für ein gutes Programm ein gutes Honorar! Oder ken- 
nen Sie vielleicht einen Grund, warum Sie sich nicht mit Ihrem 
Hobby ein paar Mark nebenher verdienen sollen? 

Selbstverständlich sind wir auch daran interessiert, gute Hardware 
für das Colour Genie mit Copyrights zu kaufen I 
Schreiben Sie uns oder rufen Sie an : Telefon 06772-7828. 


Bestellen Sie noch heute bei : 

Ralf M. Hübben, 
Verlag für Computertechnik, 
Mühlbachstraße 2, 

5429 Marienfels/Ts. 
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NHALT 


i 

t 


Neues auf dem Markt 

Seite 4 

TEXEDIT 

Hier bieten wir Ihnen ein ganz fan- 

Für den Anfänger 


tastisches Textverarbeitungsprogramm 

Wieder unsere beliebte Rubrik, in 


für Genie 1, II, TRS 80 Ml und M3. 

der wir Ihre Fragen klären 

Seite 7 

Dieses Programm ist so gut, daß man es 
durchaus für geschäftliche Verwendungs- 

Sound total 


zwecke benutzen kann. 

Hier ist die Selbstbauanleitung, 


Da bleiben keine Wünsche offen! 

für alle, denen der Ton aus dem 


WER -WAS -WO 

Fernseher zu mickrig ist 

Seite 8 

Unser Einkaufsführer zeigt Ihnen 

Mad Driver 


die Fachgeschäfte für Ihre Computer- 

Ein Superspiel für das Colour Genie 
in Maschinensprache. Abtippen und 


wünsche 

losfahren ist hier die Devise! 

Seite 12 


Invers 


Vokabeltrainer 

Besitzer eines Commodore haben 


Sind Sie Schüler oder Student? 

es ja schön ! Sie können ganz einfach 


Oder möchten Sie die Kenntnisse 

Schrift auch invers darstellen. 


einer Fremdsprache verbessern? 

Mit diesem Programm wird das auch für 


Hier hilft der Vokabeltrainer 

Sie möglich. 

Seite 17 

Ihnen weiter. 

Z A P 


; 

Ein rasantes Spiel in Maschinen- . 

spräche für alle Genie oder TRS 80 


Kontaktkarten 

Besitzer. Verteidigen Sie Ihre 


Damit Sie schnell Kontakt auf- 

Raumbasis! • 

Seite 20 

nehmen können, oder eine Klein- 
anzeige schalten, unsere Karten. 

Assembler — Teil 4 

■ ■ . \ ' 

Und denken Sie daran ! Für Abonnenten 

Und weiter geht es mit unserem 


sind drei Zeilen Text in einer Klein- 

Assemblerkursus für alle Computer 

■ : 

anzeige kostenlos! 

Freunde. Machen Sie fleißig mit. 



dann sind Sie auch bald ein Profi ! 

Seite 26 


Solitair 

Hier bringen wir das beliebte Denkspiel 


Mensch ärgere Dich nicht! 

für alle Colour Genie Besitzer. 


Das beliebte Brettspiel jetzt auch auf 

•Übrigens werden Sie sich warschein- 


Ihrem Computer. Und das tolle ist. 

lieh über die fantastische Grafik 


daß der Computer alle Mitspieler 

wundern ! 

Seite 28 

simulieren kann! 


Seite 34 


Seite 35 


Seite 50 


Seite 57 
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Nohlstr.29 • 4200 OBERHAUSEN 1 - Tel.0208/853997 


CENTRONICS-INTERFACE 
für Typenrad-Schreibmaschinen 


400,- 
(mit Einbau) 


RAM 

Test-Programm, findet selbst hartnäckigste RAM-Fehler 
E D I 

Bildschirmorientierter Editor 
T F I X 2.4 

Erweiterte Tastatur-Routine incl. EDI, standard- 
selbstdefinierte Abkürzungen 
S E D AS 3.2 

Komfortabler Screcn-Editor + Assembler 


Cass. 59,- 
Cass. 49,- 


4 

4 

4 


und 

EPROM 125,- 


Cass./Disk. 115,-/145.- 
Cass./Disk. 95,-/115,-- 


S C R E D I 2.7 

Screen-Editor zur Textverarbeitung 

R E ASS 3.2 

Reassembler, erzeugt Assembler-Quellfiles für SEDAS 

Cass./Disk. 85,-/105,- 

M A D 2.3 

Komfortabler Monitor mit Line-Assembler, 

Disassembler, Cassetten-Routinen, Trace, etc. 

Cass./Disk. 139,-/159,- 

TRANSC für Colour Genie 
schreibt und liest G I , G 1 1 und TRS 80-Cass. 

TR AN SV für Gl und II 
schreibt Cassetten für Colour Genie 
INTERFACE FÜR GENIE III zum Laden von 
Cassetten (TRS 80, Genie I u. II) 


Cass. 39,-- 
Cass. 39,- 


◄ 

4 

4 

4 


200 .-- 


woücro umfangreiche Softwarellsle !. Colour Genie auf Anfrage gegen Riickporlo DM 3,50 



GENIE 


Der erste 16 Bit Rechner von TCS setzt 
neue Maßstäbe. Das aus europäischer 
Fertigung stammende Genie 16 darf als 
kleine Sensation aufgefasst werden. Die- 
ser Rechner ist mit einem echten 16 Bit 
8086 Prozessor ausgestattet und ist 
trotzdem voll IBM PC kompatibel. 

Seine Grundkapazität beträgt bereits 
128 K und ist bis auf ca. 780 K ausbau- 
fähig. Es verfügt aufgrund des RGB An- 
schlusses und der 16 Farben mit zwei 


Helligkeitsstufen über eine exzellente 
Farbwiedergabe. Der ROM Bereich um- 
faßt 64 K. In voller Ausbaustufe sind 
zwei Disk Drives mit insgesamt 720 K 
eingebaut. Betriebssystem ist MS DOS. 

Das Genie 16 verfügt selbstverständ- 
lich über eine Vielzahl von Schnitt- 
stellen. 

- Video. RGB, BAS und HF 

- 8 Bit Centronics Parallel Drucker- 
schnittstelle 


— RS 232 Serielle Schnittstelle 

— Cassettenport 

— Lightpen 

— Joystick 

— 4 IBM PC kompatible Slots 

— 2 echte 16 Bit Slots 

Bedingt durch seine modulare Aufbau- 
weise 

— Grundeinheit mit Tastatur (incl. 

128 K RAM, 64 K ROM und Casset- 
tenschnittstelle) 

— zweite Einheit mit 2 Disk Dnves incl. 
Controller IBM Slots und 16 Bit Slots 

kann der Einstieg zu einem 16 8it Rech- 
ner schon auf einem sehr günstigen 
Preisniveau beginnen. Die Grundeinheit 
ist schon für ca. 2000, - DM zu haben. 

Das komplette System bestehend aus 
beiden Einheiten und einem umfangrei- 
chen Softwarepaket (Word Star, Calc 
Star und Datenbanksystem) wird zu ei- 
nem Gesamtpreis von unter 6000,-- DM 
inclusive Mehrwertsteuer zu haben sein 

— eine Sensation. 

Alleinvertrieb in Deutschland: 

TCS Computer GmbH 
Kölnstr. 2 • 4 - 5205 St. Augustin 2 
Tel.: 02241 / 2 80 7 1 


RADIX - 10 

Schneller Matrixdrucker mit „Near Let- 
ter Quality". 

Neue Matrixdrucker gibt es am lau- 
fenden Band. Die Entwicklung geht je- 
doch hauptsächlich in Richtung Druck- 
geschwindigkeit, wobei das Schriftbild 
nie mit Typenraddruckern wirklich kon- 
kur ieren konnte. 

Der Firma STAR ist es nun mit dem 
neuen RADIX-10 gelungen, eine echte 
Kombination zwischen Matrix- und Ty- 
penraddrucker zu erzielen. Mit der den 
neuen Matrixdruckern eigenen hohen 
Geschwindigkeit einerseits und einem 
Schriftbild (Near Letter Quality NLQ) 
das fast von einem Typenraddrucker 
stammen könnte, andererseits, ist der 
RADIX einer der wenigen echten Neu- 
heiten auf dem Druckermarkt. 

Auch seine übrigen Spezifikationen 
lassen keine Wünsche offen : 

- 200 Zeichen pro Sekunde (im bidi- 
rektionalen Matrixbetrieb) 

- 16 K Pufferspeicher 

- 9 x 9 Standardschrift 

- 18 x 18 Near Letter Quality (NLQ) 

- Friktion und Traktor Papiertransport 

- automatische Einzelblattzuführung 

- 6 verschiedene Schriftbreiten 

- eine grafische Auflösung von max. 
240 x 144 Punkten (!) 

- Centronics Parallel und RS 232 C 
Schnittstellen serienmäßig 
(umschaltbar) 

um nur einiges zu nennen. 

Der RADIX, als echte Alternative 
zur herkömmlichen Kombination von 
Typenrad und Matrixdrucker zeigt auf 
sehr eindrucksvolle Weise, daß sowohl 
ein exzellentes Schriftbild als auch eine 
hohe Geschwindigkeit in einem Gerät 
vereint werden kann. 

Der Preis wird DM 2500,- nicht über- 
schreiten. 

Alleinvertrieb in Deutschland: 

TCS Computer GmbH 
Kölnstraße 2 • 4 - 5205 St. Augustin 2 
Tel.: 02241 /28071 
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TriBat ein Programm für das Colour Genie mit 1 6K 

So etwas haben Sie auf dem Colour-Genie noch nicht ge- 
spielt! Ein Scramble-Spiel mit ungewöhnlicher Grafik ! 

Und wenn wir sagen, daß diese Grafik unerreicht gut ist, 
dann meinen wir das auch so. Sie düsen mit großer Ge- 
schwindigkeit über ein bergiges Gelände und müssen mit 
Laserstrahlen und Bomben angreifende Raketen sowie Benzin 
tanks vernichten. Mit der Zeit schwirren zudem noch 
allerlei Gebilde und Meteore im Luftraum herum, denen es 
auszuweichen gilt. 39,- DM 

Super Basic ein Programm für das Colour Genie 16/32 K 

Eine Basic - Erweiterung, die (fast) keine Wünsche mehr 
offenläßt. Mit GOTO oder GOSUB können Sie Labels ansprin- 
gen, z.B. -10 LABEL "START" 


Programm 


THEN GOTO"START 


150 END 

Wenn Sie ein Programm mit (Break) oder STOP unterbrechen, 
oder falls es aufgrund eines Fehlers selbst irgendwo ab- 
bricht, dann können Sie sich mit ?VAR alle bisher im Pro- 
gramm benutzten Variablen und deren aktuelle Inhalte aus- 
geben lassen! 

Mit der FIND-Funktion können Sie beiebige Texte, Befehle, 
Worte oder Variablen im Programm suchen lassen, INSTR sucht 
eine Textvariable nach einer best. Zeichenfolge ab, mit 
DEF FN lassen sich Funktionen definieren; ein kleiner 
Maschinensprachemonitor ist direkt im Basic verfügbar: 
HEX/ACSII-Dump , EDIT-Memory, sowie Abspeichern eines 
Maschinenprogramms als "SYSTEM" -Programm auf Kassette 
sind damit möglich. 

Viele weitere Befehle sind vorhanden (insges. über 20St. ) : 
Peek & Poke jetzt mit Doppelbyte, &INKEY arbeitet wie 
INKEY, wartet aber bis eine Taste gedrückt wurde, ?HEX 
rechnet DEZ in HEX um, u.v.a.m. 

Das tollste ist jedoch, daß dieses Programm nur ca. 1,6K 
Speicherplatz belegt, Ihnen also noch genug Platz bleibt, 
um die neuen Befehle in eigenen Programmen anzuwenden. 

Trotz allem ein ungewöhnlich günstiger Preis: 


ln electronic : y [aktuell 

‘ 1 Büro- und Personalcomputer ^preiswert 

Sandkaulstraße .84 - Telefon : 02 4] - 2 32 17 

V 5100 AACHEN 

Wir senden Ihnen gerne unseren Softwarekatalog mit über 100 Programmen! (Natürlich kostenlos!) 



Kreative Freizeit - problemloser Selbstbau 

faszinierende Möglichkeiten 


ptö*«h 

»XXI« 


Durch die Kombination von Computer 
und Musikinstrument — wie nur Wersi 
als "Made in Germany" bietet — er- 
öffnen sich dem Computer-Anwender 
bislang ungeahnte, faszinierende Soft- 
ware-Bereiche. Der Musikfreund gewinnt 
neue Dimensionen in Gestaltungsviel- 
falt, Klangschöpfung, Komposition und 
Interpretation. 


USUTTfN. 

IKTTHfACC 


HünMVI 

HOM». 

r*ct**H- 

OMf* 


•iSnM-HNT 

rjoxunn 


tc-vvAcr 


Das Wersi-DMS-System "macht's mög- 
lich". Durch Volldigital-Technik wird 
die Verbindung mit dem Computer 
möglich. Start frei für die Anwendungen 
der Zukunft. 


Das WERSI-KEYBOARD 

- der Schlüssel zu Ihrem Computer 

Sie besitzen einen Homecomputer oder ein anderes Klein- 
Rechnersystem ? Und schon lange haben Sie sich damit 
beschäftigt, nunmehr auch Musik mit Ihrem Computer zu 
machen ? Bislang stand Ihnen aber nur die normale Tastatur 
des Rechners zur Verfügung ? Dann haben wir jetzt die 
richtige Idee für Sie: Mit dem Wersi-Keyboard, damit das 
Musizieren auch so richtig Spaß macht ! 

Wir als Orgelhersteller wurden schon oft nach einer ent- 
sprechenden Tastatur befragt. Mit dem Wersi-Computer- 
Keyboard bieten wir Ihnen nun in einem soliden, form- 
schön gestalteten Gehäuse ein 5-Oktaven-Manual mit 61 
Tasten — von C bis C — mit computergerechter 8x8 
Matrixabfrage an. 

Die ALPHA DX 300 - das Superding 

- das Orchester, das sich per Computer steuern läßt 

Mit der ALPHA DX 300 verfügen Sie über eines der außergewöhnlichsten Orchester für zuhause oder das Studio, ein Keyboard 
oder Synthesizer für die Bühne und vieles andere mehr. Die Zukunft ist Wirklichkeit. 

Die ALPHA DX 300 ist "lernfähig", d. h. sie kann neue Programme, Klangfarben etc. jederzeit ändern, löschen oder auf- 
nehmen. Diese Dimension ist neu und vorteilhaft, wenn die ursprünglich 
einprogrammierten Instrumente vielleicht doch einmal in Vergessenheit 

| 1 geraten sollten. 

Die ALPHA DX 300 verfügt über die internationale Standard-Schnitt- 
p—m stelle RS 232; hieran läßt sich ein "Apple", ein "Commodore", • "Sirius" . 

__ lim oder andere Home-Computer anschließen. Die Software für Ihren Com- ‘Vj 

1 i ' 'll’Ti SSSSÜllB* pii iter r^hrAihn^ Cin nnto.n^nr rnlk(t /->,") r, r Kn-ioKoA IIArarQ 


Wer» CEYKJARO Mi «jm;» 
Ergtramg «r >odon KlecncomjMer 


Vqc* — «rmnoetv 

- Sch/unaelle 

- Programm au Tor»r».jg\uva 

- Programm au Tastanuabfiago 


Ksndaiaa. 

Larvje 89 cm 

ßroiio Kcm 

Höhe 75 cm 

Um/aivj 5 Oktaven C bo C - 

6; Tasten 

Austasung MeiniaCrfrao« 8*8 
Aixachluft Stecker 1 6-fxs!^ 

(8 Zetlerya Sparen) 


Keyboard 

urcl AnichJußkabol 
(aofor otnuoberoitj 
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Für 

den 

Anfänger 

Die Fragen, die heute geklärt werden sollen, stam- 
men von Herrn Roland W.olten aus 2807 Achim. 

Bevor wir aber rangehen, möchte ich Sie noch- 
einmal bitten : 

Wenn Sie irgendwelche Fragen zu Ihrem Com- 
puter haben, schreiben Sie uns! Definieren Sie aber 
bitte so genau wie möglich Ihr Problem ! 

Jetzt aber los: 

Die Befehle PEEK und POKE sind Befehle, mit de- 
nen es möglich ist, Speicherbereiche zu lesen oder 
zu ändern. Fangen wir einmal mit PEEK an. 

Mit PEEK ist es möglich, jeweils eine Speicher- 
stelle des gesamten Speicherbereiches Ihres Com- 
puters aus 2 ulesen. Dazu schreiben Sie die Adresse 
der Speicherstelle, die Sie sich ansehen wollen, 
hinter dem Wort PEEK in Klammern. Nehmen wir 
an, Sie wollen den Computer feststellen lassen, wel- 
ches Zeichen sich in der oberen, linken Ecke des 
Bildschirmes befindet. Die Adresse dieser Speicher- 
stelle ist bei Colour Genie Benutzern 17408 und 
bei Genie- oder TRS 80-Benutzern 15360. Tippen 
Sie also: 

PRINT PEEK (17408) und Return 
beim Colour Genie, oder 

PRINT PEEK (15360) und Return 
beim Genie. Der Computer gibt Ihnen daraufhin 
eine Zahl. Diese Zahl suchen Sie in der ASCII- 
CODE-Tabelle in der Bedienungsanleitung, und 
schon wissen Sie, welcher Buchstabe dort steht. 
Wenn Sie jetzt einwenden, daß dieses Vorgehen ja 
ziemlich umständlich ist, weil Sie ja nur auf den 
Bildschirm zu schauen brauchen, um festzustellen, 
was da steht, dann haben Sie natürlich recht. Aber 
halten Sie sich bitte vor Augen, daß dieses Bei- 
spiel Ihnen ja nur die Arbeitsweise von PEEK ver- 
deutlichen soll, dann ändert sich Ihre Ansicht 
warscheinlich. 

POKE ist ein umgedrehter PEEK-Befehl. Mit 
POKE können Sie in eine beliebige Speicherstelle 
einen Wert zwischen 0 und 255 schreiben. Dazu 
wieder ein Beispiel : 

POKE 17408,65 und Return 
für Colour Genie und 

POKE 15360,65 und Return 
für Genie-Computer. Was passiert? In der oberen 
linken Bildschirmecke erscheint ein A. Warum? 

Weil wir in die Adresse des Bildschirmspeichers, 
oben, inks, den ASCII -Wert von A (=65) geschrie- 
ben haben. 

Jetzt machen wir es aber etwas spannender : 


w 


cc Computer Studio GmbH 
Elisabethstraße 5 
4600 Dortmund 1 
Tel.:02 31-52 81 84 
Tx 822 631 cccsd 


COMPUTERSYSTEME 


GENIE III 

64KB RAM, 2x720 KB Disk-Speicher, 

Bildschirm 64x16 oder 80x24 Zeichen. TRS-80* 

Mod. 1 kompatibel 

CP/M* fähig 6900,- 

GENIE I 

64 KB RAM, Microsoft-BASIC, Bildschirm 64x16 
Zeichen. Level IV ROM, TRS-80* Mod. 1 
kompatibel 998,- 

NEU: TANDY MODELL 100 der tragbare ab 1490,- 
COLOUR GENIE TRS80 

Neueste Version mit Meßinstrument I 
16 KB RAM, Microsoft-BASIC & Grafik, 16 Farben 
auf Ihrem Farbfernseher, TRS-80® Mod. 1 
BASIC kompatibel 598,- 

dto. mit 32 KB RAM 670,- 

® TRS-80 ist eingetragenes Warenzeichen der Tandy 
Corp. -'CP/M ist eingetragenes Warenzeichen von Digital 
Researcn. 


Slim Line Laufwerk, 40 Track, SS/DD, 

250 K-Byte Speicherkapazität 625,- 

Slim Line Laufwerk, Doppelfloppy, kompl. 
mit Gehäuse, Netzteil u. Kabel 1499,- 

Andere Laufwerke und Kapazitäten auf Anfrage lieferbar. 
TELEFONMODEM Acoustic Coupler AC-3 
mit FTZ-Nr. 18.13.1801.00 nur 348,- 

Brother HR 15 Typenraddrucker der ideale 
Schönschreibdrucker mit den vielen Kombi- 
nationsmöglichkeiten 

Katalog u. Testbericht kostenlos 1795,- 

fcxpansion Interface für TRS-80* incl. 32 K RAM 925,-- 
Double Density Controller für Tandy und 
Video Genie 198,-- 

16 K Erweiterung für Colour Genie incl. Einbau 79,- 

Star Drucker Gemini-lOX, 120 Z/sec, 

1920 Pkt. pro Zeile 998,-- 

Zenith Monitor grün o. bernstein entspiegelt 319,- 

Datenrecorder 6019 (bitte Datenblatt anfordern) 149,- 


VERBRAUCHSMA1ERIAL 


49- 


BASF Disketten, Qualimetrik, 10 Stück 
Verbatim Disketten mit Verstärkungsring 
10 Stück, DD, mit orig. Reinig. Set 79,- 

Farbig sortierte Diskettenboxen 7 50 

Datencassette C 20 33 g 

Farbbänder für: 

Tandy Line Printer I, II u. IV je 15,- 

Tandy Line Printer III u. V je 19,50 

Tandy DW II je 17,- 

Epson MX 80 je 19,-- 

Itoh 8510, 1550 je 20,-. 

Oki Microline, Star je 9,50 

Rest auf Anfrage. 

Alle hier angebotenen Produkte sind ab Lager lieferbar. 
Alle Preise incl. Mehrwertsteuer. 


NEU: ae Selten Colour Genie Softwaroliste 
kostonlos anfordorn I 

Wir suchen ständig nouo Programme für Colour Genie! 
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Sie wissen, daß man mit VARPTR 
feststellen kann, an welcher 
Adresse im Speicher der Wert ei- 
ner Variablen abgelegt ist. Gut, 
dann wollen wir einmal den Wert 
einer Variablen durch POKE an- 
dern. Geben Sie einmal folgendes 
Programm ein : 

10 DEFINT A 
20 A= 10 

30 ADRESSE = VARPTR (A) 

40 PRINT A 
50 POKE ADRESSE, 50 
60 PRINT A 
Die Erklärung: 

In Zeile 10 legen wir fest, daß A 
in Zukunft als Integervariable zu 
behandeln ist. Zeile 20 weist der 
Variablen Aden Wert 10 zu. Dann 
stellen wir in Zeile 30 fest, in wel- 
cher Speicherstelle der Wert für 
A gespeichert ist. In Zeile 40 las- 
sen wir den Wert von A (=10) auf 
den Bildschirm schreiben. Die 
nächste Zeile ändert nun durch 
POKE den Wert der Variablen A. 
Und in der letzten Zeile lassen wir 
A noch einmal ausgeben, und sie- 
he da, der Wert ist jetzt 50. 

Zur nächsten Frage: 

Um Basic Programme vom Genie 
auf das Colour Genie zu übertra- 
gen (oder umgekehrt) ist es nötig, 
eine Gegenüberstellung der ver- 
schiedenen Anweisungen zu haben. 
Diese Referenz-Tabelle bringen 
wir in der nächsten GENIE DATA. 
Eine Erklärung der logischen 
Funktionen wollen wir hier nicht 
geben, da das zu umfangreich wür- 
de. Dieses werden Sie aber zum 
Beispiel in unserem Colour Genie 
Buch finden, das demnächst er- 
scheint. Diese Erklärung findet 
man aber normalerweise auch in 
jedem Buch, das sich mit Maschi- 
nensprache befasst. 

Zum Schluß gibt uns Herr Wol- 
ten auch noch folgende Tips: 

Er hat entdeckt, daß nach IF das 
THEN entfallen kann, wenn da- 
durch keine Irrtümer entstehen. 
Das ist richtig, und falls doch Irr- 
tümer entstehen, kann man THEN 
durch ein Komma ersetzen. 

REM kann durch ' (Shirt 7) er- 
setzt werden. 

So, das wars für heute. 

Und falls auch Sie fragen haben, 
dann schreiben Sie uns. 


Wenn man zum Colour Gc-nie nur 
einen Fernseher als Bildschirm be- 
sitzt, wird man sich oft genug da- 
rüber ärgern, daß bei korrekt ein- 
gestelltem Bild trotzdem stören- 
de Nebengeräusche aus dem Fern- 
sehlautsprecher ertönen. 

Meistens ist das ein mehr oder 
weniger starkes Rauschen, daß die 
Musik oder die Explosionen bei ei- 
nem Spie] begleitet. 

Um diesem Mißstand abhilfe zu 
schaffen, habe ich einen Klein- 
leistungsverstärker in eine kleine 
Lautsprecherbox eingebaut und 
habe nun zu einem perfekten Bild 
auch einen sauberen Klang! 

Der Lautsprecher wird bei mir 
mit einer 9 Volt Batterie betrie- 
ben und arbeitet mit ihr nun 
schon ein halbes Jahr zufrieden- 
stellend. 

Und die Vorteile des Ganzen : 
Einfach in die Audio-Buchse des 
Colour Genie einstecken, keine 
Eingriffe in den Computer, ein- 
fach zu transportieren. 

Man kann statt des Lautsprech- 
ers auch einen der modernen 32 
Ohm Kleinkopfhörer anschliessen 
und stört somit nie mehr seine 
Familie, wenn man gerade durch 
den Weltraum fliegt. 

Und noch etwas: 

Diese kleinen Verstärker sind in 
jedem Elektronikladen billig zu 
bekommen und meistens alle nach 
dem selben System aufgebaut, 
sodaß man dabei allenfalls meine 
Bauanleitung zum Anschluß an 
den Computer verwenden kann. 

Gesamt gesehen ist der Einbau 
des Verstärkers in das Computer- 
gehäuse zwar möglich aber nicht 
unbedingt empfehlenswert. 

Der Platzmangel im Gehäuse, 
die Wärmeentwicklung des Ver- 
stärkers, der begrenzte Laut- 
sprecherdurchmesser und der 
Klang im Gehäuse sprechen dage- 
gen. Besser ist es, den Verstär- 
ker in eine eigene Lautsprecher- 
box von ca. 15cm mal 25cm ein- 
zubauen. Dabei können +12 Volt 


und Masse vom Parallelport und 
der Ton vom Audio-Ausgang des 
Colour Genie abgegriffen werden 
(über Anschlußkabel). 

Übrigens noch ein Tip: Die 
Steckerleiste für den Parallelport 
lässt sich einfach durch Halbie- 
ren einer 40-poligen IC Fassung 
hersteilen. 

Eine Batterie von 9 Volt ist 
für den Verstärker vollkommen 
ausreichend. Sie muß allerdings 
durch einen Schalter abzuschal- 
ten sein. Mit einem Trimmpoti 
von 22k Ohm linear, zwischen 
Eingang und Masse, kann man die 
Lautstärkeregelung noch etwas an- 
passen. 

Die einseitig kupferkaschierte 
Pertinaxplatine kann im üblichen 
Platinenherstellungsverfahren (be- 
lichtet oder gezeichnet) geätzt 
werden. 

Das Lautstärkeregelpotentiome- 
ter (47k Ohm) kann seitlich oder 
an der Vorderseite in das Compu- 
tergehäuse eingebaut werden, was 
aus nachstehenden Gründen je- 
doch nicht empfehlenswert ist. 
Es ist erforderlich für das Poti 
ein Loch von ca. 6mm in das Ge- 
häuse zu bohren. Der spätere 
Sitz des Potis muß schon vor dem 
Einbau kontrolliert werden, ob 
nicht beim zusammenschrauben 
des Computers Berührungen zum 
Gehäuse oder der Platine entste- 
hen! 

Die Stromversorgung von + 12 
Volt kann an der linken Seite der 
Computerplatine von dem 3-poli- 
gen Stecker des Netzteils abge- 
griffen werden. Die Masse liegt 
an mehreren Punkten an, z. B. 
an der Tastatur. Der NF-Eingang 
(Ton) des 5W Verstärkers wird 
am Mittelpunktleiter des Ausgangs 
„AUDIO" des Colour Genie ange- 
lötet. Der andere Punkt des NF- 
Eingangs (zum 300k Widerstand) 
wird an der Abschirmung dieser 
Buchse angelötet. Als Lautsprech- 
er kann ein Kleinlautsprecher von 
max. 5W Leistung eingebaut wer- 
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den. Dieser ist allerdings durch 
den vorgesehenen Platz im Com- 
puierdeckel auf 6 bis 7cm Durch- 
messer begrenzt. 

Stückliste: 

1 Peiunaxplaime einseitig kupfer- 
kaschiert 

1 Regeipoti 47k log nur Knopf 
1 Trirnmpoti 22k im 
1 IC IBA 800 

1 Lautsprecher (nach Bauanlei- 
tungi, 8 Ohm 

1 2200 uF Elko 

2 500 uF Eikos 
! 47 nF Elko 

1 470 uF Elko 
5 33 p Kondensator 
1 3,3 n Kondensator 
1 300 k Widerstand 
I 180 Widerstand 
1 Baitenekiips (9V5 
1 Meter Lau I Sprecher kabei 
1 Kunststoff- oder Holzgehäuse 

Platinenlayout 




KLEINANZEIGEN 


COLOUR GENIE 
Programm + Erfahrungsaus- 
tausch, Jörg Bemm6, Markt- 
str. 25, 2216 Schenefeld 

Suche Floppy + Exp. f. TRS 
80 W. Nimzik Himmelgei- 
ster 19 4047 Dormagen Tel. 
72394 

Suche Kontaktadresse V. G. 
Gebraucher Kreis Heinsberg. 
G. Peters P. Polliusstr. 51, 
6045 BW Roermond-NL 

Tastatur mit integriertem 
Zehnerblock und div. Son- 
dertasten 95,- DM W. Hage- 
now Tel. 04921/51065 

PROG. TAUSCH, VG 1, 
DISK, K. WAGNER, 
DIETR.-BONH.-STR. 1, 
6720 SPEYER 

Anadex 40 Zeichen Druk- 
ker Seriell und Parallel mit 
Handbuch, Schaltplänen u. 
div. Papier 300,- DM W. Ha- 
genow Tel. 04921/51065 


CG: MC-Assembler 30,- MC- 
Disass. 20,- DM (Cass.) H. 
Kristen, Haunspergerstr. 11; 
8229 Laufen 

Suche Hex-Listing bzw Sy- 
stem-Tape vom VG II Ep- 
rom. Tausche auch Program- 
me. Michael Laschek, An 
der Sommerseite 33, 6430 
Bad Hersfeld 

Colour Genie 32K: COL- 
OUR-ENGLISCH 2500 Vo- 
kabeln, 5 Aufnahmen je 25 
KB auf Kassette 39.- DM 
COLOUR-LEHRER. univer- 
selles Abfrageprogramm, 
25,- DM. INFO kostenlos 
Kowalewski, Reinickendor- 
ferstr. 4a), 2 Hamburg 73 

Suche billigen STAR-Druk- 
ker und Anschluß an Co- 
lour Genie, H. Graml, Siegl- 
berg 78 1/2, 8390 Passau 
CG -Soft Info 80 Pf 
Manfred Maiers Am Hang 1 
2352 Bordesholm 


Die kostenlose KUNDENDIENST-INFORMATION 



NACHRICHT 



bei Ihrem Händler zu haben ! 
oder anfordern bei 


BESTE LL-COUPON 
Bitte, senden Sie mir kostenlos die neueste Ausgabe 
der GENIE-NACHRICHTEN 


HEEl-VERLAG 
Postfach 320220 
5300 BONN 3 


Name: 


Straße : 



Ort 


PLZ 



COLOUR GENIE HARDWARE 


Automatische Cassettenrecordersteuerung 

mit Einbauanleitung DM 24,80 

Colour Genie Joy Stick DM 79,80 

für Spiere, die sonst mit dor Tastatur 
gespielt werden 


SOFTWARE-KATALOG 

ANFORDERN! 





Versand: Entweder por Nachnahme odor per Vorkasse 


Datenrecorder-Probleme? 

Muß nicht sein ! 

Mit unserer Zusatzplatine werden die Daten digitalisiert. 

- In jedem normalen Recorder einzuschleifen! 

Mit Einbauplan Modul DM 98, ~ 

Für die "Alten" 

Leveimeter Nachrüstsatz kompl. mit Einbau- 
anleitung DM 19,80 

Commodore VC 20 + VC 64 
Cassetteninterface Vers. 1 mit Schaltern mit Bedienungs- 
anleitung (wird nur auf den Port gesteckt). 

Für alle handelsüblichen Recorder DM 29,80 

dito Vers. 2 

mit automatischer Motorsteuerung für den Recorder. 

Mit Bedienungsanleitung DM 36,80 


auf unsor Konto 66811 bei dor Stadtsparkasso Osnabrück 
(BLZ 265500011 


Light Pen für C 64 in Vorbereitung ... 


Bei Bestellungen ab DM 50,-- Porto und Verpackung frei. NDR -Computer-Bausätze bei uns! 



I 


Colour Genie 32K Software, 
Joyst, Bücher VB 700,- 
0551/77887 

CG-Programm-u. Infotausch 
Listen an G. Brinkhoff, Sie- 
bengebirgsstr. 39 5300 

Bonn 3 

CG Textverarbeitung, Datei- 
verwaltung f. Cassette, ä89,- 
H. Elsässer 7539 Kämpfel- 
bach 

Genie-Club Raum Augsburg 
Info g. Rückp. K. v. Mau- 
beuge Bergstr. 8a 8901 
Aystetten 

Schwierigkeiten Cassetten- 
progr. auf Disk zu bekom- 
men!? HELP/CMD für nur 
30,- und der Spass kann los- 
gehen! 07321-41357 ab 
18.00 

Suche gebr. Expander u. 
Drucker auch def. für VG-1. 
06343/1416 




Progr. Ihre EPROMs 2716,- 
-32, 2532 mit Colour Genie 
Programmen (auf Tapa'Disk) 
W. Krenn.St Wolfgangspl.1 1 
8000 München 80, Tel. 089/ 
4138315 ab 18.00 

Colour Genie Erw. auf 42KB 
RAM + 12KB EPROM + 
Cass. Interf. 12000 Baud 
Tel. 06825 43266 


Suche für Colour Genie 
Software zum Programmie- 
ren der seriellen Schnittstel- 
le (Modem/300 Baud) Tel. 
0511 872307 

C. G. Programmtausch auf 
Floppy H. Schmid, Teckstr. 
40, 7410 Reutlingen 17 

RTTY mit dem Colour Ge- 
nie (Hard- und Software) 
Info: L. J. Derenette, 

Strandlaan 51, B-8460 Kok- 
syde, Belgien 


Suche CPU- und Videopla- 
tine für Genie I. Angebote 
bitte unter 07321/41357 ab 
18.30 

Wir führen: 

Genie I, III, 16 A+B, Color 

Floppylaufwerke 

Star Drucker 

Färb und monochrom Moni- 
tore zu unglaublichen Prei- 
sen II Preisliste anfordern 
bei. 

Computerversand Jourdan 
Darmstädter Str. 66 
6080 Groß-Gerau 

HIRES-Programme für HR 
61 Walkowiak, Zechenbahn 
13 435 Recklinghausen 

Tausche VG. -Programme 
(300) Iris Otten, Hermann- 
Ost-Str. 16 5000 Köln 80 

‘Colour Genie* Suche 
Tauschpartner Liste an: 
Christa Burmann, Karl-Ar- 
nold-Str 1 4630 Bochum 6 


Colour Genie: Full-Screen- 
Editor, EACA-komp. Joy- 
sticks, Top-Software; FX 
702P: Chess, Tuningkit, 

Sonderzeichen uva. Info 50 
Pf - H. Czech, Kölner 6, 
509 Lev-3 

Suche Geschäftsprogr. z. B. 
Lohnbuchh., Lagerverw., 
Kalkulation usw. für CG. 
Tel. 0228/224353 

Suche dringend deutsche 
Anleitungen zu: Superutili- 
ty plus 3.0, Dotprint, Geap 
(TRS 80 Ml, Itoh 8510 vor- 
handen) H. Fischer Akazien- 
weg 1 6698 Namborn 5 

Suche Schaltpl. f. C. G. 
Joyst. u. An/Dg-Wandler J. 
Aichele Jusistr.3 7302 Ost- 
fild.-2 





PLOTT 84 


Dill« Programm plottet beliebig» Funktionen auf den Bild- 
schirm, Jedoch mit einer Auflösung uan ca. 1 BBx 389 Punkten. 
Die Funktion wird In der Form 

Y< I >=F<x) - z.B. Y( i > = SIN< SOR<X> » C0S<Xf3> ) 

eingegeben und dann in einem Xoordl na t enras ter angezeigt, aus 
dem sich auch einzelne Werte recht genau ablesen lassen. 

Sitte lassen Sie sich durch den enorm günstigen Preis nicht 
über die Le i s tungsf ih i gke I t des Programms tauschen. 

Art. 093 SeS 23.- DM 


41— | electronic 'aktuell 

Ül Büro- und Personalcomputer ^preiswert 

Sandkaulsfraße 84 - Telefon: 0241- 232 17 

V 5100 AACHEN 

Wir senden Ihnen gerne unseren Softwarekatalog mit über 100 Programmen I (Natürlich kostenlos !} 


COLOUR PASCAL 


SUPER EDIT 

Ein echter Bildschirm - Editor für Ihr Colour Genie. 

Sie wandern mit dem Cursor über den Bildschirm und uerindern 
In recht einfacher Weise Ihr Programm. Sie können Ihr Prograj 
Zeilenweise uor- oder auch rückwärts scrollen. über sehr e i ben 
und Verdoppeln uon Ze I I ennummern ist ab sofort kein Problem 
mehr. Aber das ist noch nicht alles! Zusatz funk t i onen erlaub' 
Ihnen das Zu samme nh ingen uon Programmen (MERGE-Bef ehl > , Zeit, 
können aufgetrennt werden, uerschiedene Zeilen können zu ein. 
njsanvnfrngp i t werden, u.a. 

Art. 094 SrS 39.- DM 

MONITOR 1.2 

ein einfacher Masch i nenspr achemon i tor mit HEX und ASCI I - Dur 
Edi t-Funk t I on , Laden und Abspeichern uon Maschinenprogrammen 
HEX-DEZ Unuandl ungs- und Rechenroutine, etc. 

Art. 899 39.- DM 

COLOUR - FORTH 

Eine neue Progr ammi er spr ache für Ihr Colour Genie. 

Falls Sie FORTH kennen. Ist alles klar, falls nicht, bitten u 
Sie, sich danach zu erkundigen. FORTH hier zu erklären, würdi 
den Ramen dieser Sof tware I 1 s to sprengen. Im Lieferumfang Ist 
ein Anleitungsbuch, das auch FORTH - Neulingen die Sprache 
erklärt und In die Benutzung einweist. 

Art. 998 93.- DM 


DATABASE 


Damit wird Ihr Computer zur Adresskar te i . Sie können damit 
Namen, Adressen, Tel. Nummern, Bemerkungen u.a. abspeichern, 
nach verschiedenen Gesichtspunkten sortieren, suchen, aus~ 
drucken , etc. ... 

Durch Verändern uon DATA-Zeilen können Sie anstelle uon 
Adressen auch andere Dateien mit anderen Bezeichnungen anlegen. 
übrigens: die Daten, die Sie im Programm eingeben, werden 

nicht in DATA Zeilen abgelegt, sondern direkt auf 
Kassette abgespeichert. Sie können somit auch sehr einfach 
uerschiedene Dateien miteinander verbinden. Dieses Programm 
wurde für Kassettenbenutzer geschrieben und speichert die Daten 
in einem besonders zeitsparenden Verfahren auf Kassette ab. 

Art. 897 SeS 25.- DM 
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Nach dem Abtippen steigen Sie 4800 

einfach ein, und los geht die rasan- 480B 

te Fahrt. Doch was ist das?? ! ! 4816 

Statt auf einer Rennstrecke fahren 4821 

Sie versehentlich auf der fal- 482C 

sehen Spur einer „idyllischen" 4837 

Landstraße, vorbei an Häusern 4842 

und Bäumen — und ... — es kom- 484D 

men Ihnen höllisch viele Fahrzeu- 4858 

ge entgegen. Diesen gilt es durch 4863 

geschickte Manöver auszuweichen. 486E 

Versuchen Sie es einfach! Wer es 4879 

am längsten durchhält bekommt 4884 

die meisten Punkte! 488F 

Der Spielablauf 489A 

In der unteren Bildschirmzeile 48A5 

wird laufend der Spielstand ange- 48B0 

zeigt. Mit jeweils sechs program- 4BBB 

mierten Zeichen werden die ver- 48C6 

schiedenfarbigen Hinderniswagen 48D1 

und der orangefarbige Rennwagen 48DC 

dargestellt. Für jeden Hindernis- 48E7 

wagen, der den Bildschirm passiert 48F2 

hat, bekommen Sie 1 - 5 Punkte, 48FD 

das ist abhängig von der Geschwin- 4908 

digkeit, mit der Sie fahren. Diese 4913 

steigert sich laufend, paralell dazu 49 IE 

verengt sich die Straße. Um die 4929 

Reaktionszeit zu verkürzen, nähert 4934 

sich Ihr Rennwagen ausserdem 493F 

dem oberen Bildschirmrand. 494A 

Wem das noch nicht genug ist, 4955 

der kann mit SPACE die Beschleu- 4960 

nigung verzehnfachen. Wenn man 496B 

drei Unfälle verursacht hat, ist das 4976 

Spiel zuende, bei einer neuen 4981 

Höchstpunktzahl kann man gege- 4-9SC 
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benenfalis noch seinen Namen 
eingeben. 

Versuchen Sie, möglichst lange 
in der Mitte der Straße zu bleiben. 
So können Sie immer den Hinder- 
nisfahrzeugen ausweichen. 

Mit Hilfe des Soundgenerators 
wird während der Fahrt das Mo- 
torgeräusch simuliert. Wenn Sie zu 
knapp an den Straßenrand oder an 
den Hinderniswagen fahren, ertönt 
zur Warnung ein schleifendes Ge- 
räusch, das den Spielablauf jedoch 
nicht beeinträchtigt. Erst bei ei- 
nem wirklichen Zusammenprall 
verlieren Sie durch eine Explosion 
einen Ihrer Rennwagen. 

Die beim Spielen und Program- 
mieren häufig benutzten Pfeilta- 
sten werden bei diesem Spiel 
durch die Verwendung der 
Größer- und Kleiner-Tasten entla- 
stet. 

Programmdaten 

Das Programm belegt den vom Ba- 
sic nicht unbedingt benutzten Gra- 
fikspeicher von Adresse 4800 H 
bis 5282 H. Das entspricht einer 
Länge von 2690 Bytes. Die An- 
sprungadresse ist 4E28H. 
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COLOUR -GENIE SOFTWARE 


SCHM1DTKE 


— electronic 

J Büro- und Personalcomputer 

Sondkoulslroße 84 - Telefon : 024] - 232 ]7 

5100 AACHEN 
CALCUL 1.1 


Wir senden Ihnen gerne unseren 
Softwarekatalog mit 
über 100 Programmen! 
{Natürlich kostenlos!) 


Ein Mathematik - Programmpake t , dis es in sich hat' 

Zura Si * därai * ®in*n Taschenrechner simulieren, 

socohl UfN als auch /SOS. Oie Anzeige gib» laufend Auskunft 
über die internen STACK-Regi s ter , I/O-Uerte etc. ... 
Desweiteren lassen sich damit Funktionen mathematisch 
bearbei ten «integrieren, differenzieren, etc.). Oie Funktion 
u/.rd In hoher Auflösung auf den Bildschirm geplottet und kann 
als Dump auf einem Drucker (Typ Star oder Epson) ausgegeben 
wprde,n - Art. 095 SeS 4P.- OM 


Art. 095 SeS 49.- CM 

Kurzfassung der CALCUL-Befehle 

flokürrungen: Ml, mx, m0, PU: Pfeil r, acn links. /ecnis, oo-n.. unten 

iS lack wird durch £'e lYn I geshittat 
P* ! E i nd söe reg i Ster de/' Funktion 
O'J! Ausg.-.oareqlster der Funktion 
flb: AöküVcung. die nach Funktionsaufruf in der 
zweiter. Zeile des Bildschirms erscheint 
äh! Shitt , Ct! CTRL = Control 


Tastein> Funktionsweise 


PL 
Sh PL 
Ct PL 1> 
2 j 


PO 
Sh PO 
Ct PO 
PU 
Sh PU 
Ct PU 
CLEAR 
Ct CLEAR 
+ *,/, 
<F1> 
Sh <FI> 
Ct <Fl> 
<F2> 
Sh <F2> 


freie le. Lösche voriges Zeichen 

Lade X int R(i>, 1 wird ertragt 

Lade Stack aus R'<ö-ä> 

nach "STA": entferne X.V aus 

statistischen Summen 

als 1-tes Zeichen! X in Hexa 

hinter Hexa-Zahl: X in freu 

Lade R(l> mit X, i uird erfragt 

Lade R<&~3> mit Stack 

nach "STA"! X.V zu stat. Summen 

Schiebe Stack nach oben 

Rolle Stack nach oben 

tausche Z und T 

Schiebe Stack nach unten 

Rolle Stack nach unten 

tausche X und T 

lösche Stack 

lösche Speicher R<0-15> 

Grundrechenarten für AClS 

Addition für UPM X=V+X 

Addiere X :u Kl), i wird erfragt 

komplexe Addition 

Subtraktion für UPM X*V-X 

Subtrahiere X uon Rti) 


IN 

ÜU 


Cb 


X 


RecR 


X-T 


Ra cS 

X.V 

r 


SM- 

X 





X 

5 


X 



StoR 

X-T 



StoS 

x,v 

r 


STA* 

X-T 

X-T 


StUp 

X-T 

x-r 


RolU 

Z,T 

Z, T 


ExZT 

x-r 

X-T 


SU>o 

X-T 

x-r 


ko 1fr 

X.V 

X.V 


ExXV 

X-T 



clSt 




clRe 

X 

X 

S 

A0S 

X.V 

X 

$ 

v*x 


D: ,. 



C sub 
S V »X 
fte*X 
Cn.ul 

S vxx 


CUP <RET> Cursor in Graph bewegen (hinter PL0) 
<PL> Cursor 1 Einheit nach links 
<PR> Cursor 1 Einheit nach rechts 
Sh<PL>Cursor 9 Einheiten nach links 
ShCFPfrCursbr S Einheiten nach rechts 
P Position in X, V ausgeben 

E Uerlasspn der Routine 

DEG <R£T> in Grad omuandeln X 

DIF differenziere Funktion X 

EMO * CALCUL beenden 

Efrl ' Funktion IM editieren 

MEL " Anleitung ai.<sdrij£k?n 

; • ■ “ “Ende der Anleitung 

IMG ” Integral der IN-ten Fkt in (X,V> X,V 

KAR “ in kartesische Koord. uandeln x[v 

LIM “ minimale und maximale Fkt-Merle XV 

LIM " lineare Interpol al len P< P-3) XV 

Lt>? " Zehne r log arithmu» x' 

PI. “ l(reisl:onet»nte 3. I4IS. . 

PLO " Kuru? plotten X-T 

POL “ in Polarkoordtnaten uandeln X.V 

PST ■ Pythagoras X»X+V*V X^V 

RAD “ ln Bogenmaß umwände ln X 

RUM " Funktion IN auf rufen bei lei 

l'SR " frei def inlerbarer Befehl 

ZER “ Mullstelle suchen X,V : 

Steuerparameter: 

IM Funktionszeiger lN=l-3 

IR Speicherreiaer IR=9-I5 

IS Statistik 13*0,1 

1P frruckerprotokoll jf?=n, 1 

DI Intervall teilet 01=100 Standard 

FE Fehlergröße “ZER" FE=!.E-5 Standard 


16 GENIE DATA 


4EBF 

20 

CA 

20 

20 

CA 

20 

20 

20 

CA 

20 

CA 

4ECA 

00 

F5 

3E 

08 

32 

23 

40 

Fl 

21 

AB 

44 

4ED5 

22 

20 

40 

CD 

6D 

48 

E2 

20 

20 

E4 

20 

4EE0 

20 

E2 

20 

20 

E4 

20 

20 

CD 

CA 

CA 

E2 

4EEB 

00 

F5 

3E 

OA 

"T 'D 

23 

40 

Fl 

21 

FO 

44 

4EF6 

22 

20 

40 

CD 

6D 

4S 

20 

20 

20 

20 

E4 

4P 01 

CA 

CA 

EO 

20 

20 

E4 

CA 

CA 

EO 

20 

20 

4F0C 

CD 

20 

20 

EO 

20 

20 

CD 

20 

20 

CD 

CA 

4F17 

CA 

E2 

20 

20 

E4 

CA 

CA 

EO 

OD 

00 

F5 

4F22 

3E 

03 

32 

r ?-r, 

40 

Fl 

CD 

6D 

48 

20 

20 

4F2D 

20 

20 

20 

CA 

20 

CA 

20 

20 

20 

CA 

20 

4F38 

CA 

20 

20 

CA 

20 

20 

CA 

20 

20 

CA 

20 

4F43 

20 

CA 

20 

20 

20 

20 

20 

20 

CA 

20 

CA 

4F4E 

0D 

00 

F5 

3E 

01 

T*"> 

23 

40 

Fl 

CD 

6D 

4F59 

48 

20 

20 

20 

20 

20 

CA 

20 

CA 

20 

20 

4F64 

20 

CA 

CA 

E2 

20 

20 

CA 

20 

20 

CA 

20 

4F6F 

20 

CA 

20 

20 

CA 

CA 

CA 

20 

20 

20 

20 

4F7A 

CA 

CA 

E2 

OD 

00 

F5 

3E 

06 


CT 

40 

4F85 

Fl 

CD 

6D 

48 

20 

20 

20 

20 

20 

CA 

20 

4F90 

CA 

20 

20 

20 

CA 

EO 

20 

20 

20 

CA 

20 

4F9B 

20 

E4 

EO 

CD 

E2 

2t.') 

20 

CA 

20 

20 

20 

4FA6 

20 

20 

20 

CA 

EO 

OD 

00 

F5 

3E 

08 


4FB1 

23 

40 

Fl 

CD 

6D 

48 

20 

20 

20 

20 

CD 

4FBC 

CA 

CA 

E2 

20 

20 

CD 

E2 

E4 

EO 

20 

20 

4FC7 

E2 

20 

20 

20 

E4 

E2 

20 

20 

20 

E4 

CA 

4FD2 

CA 

EO 

20 

20 

CD 

E2 

E4 

EO 

OD 

00 

F5 

4FDD 

3E 

OB 

32 

23 

40 

Fl 

21 

E6 

45 

• l * <*’• 

20 

4FE8 

40 

CD 

6D 

48 

57 

52 

49 

54 

54 

45 

4E 

4FF3 

20 

49 

4E 

20 

44 

45 

43 

45 

4D 

42 

45 

4FFE 

52 

20 

31 

39 

38 

33 

20 

42 

59 

OD 

20 

5009 

20 

20 

20 

20 

20 

20 

20 

4A 

4 1 

4E 

20 

5014 

48 

45 

4D 

4D 

49 

4E 

47 

OD 

20 

20 

20 

50 1 F 

20 

20 

20 

20 

20 

42 

45 

52 

54 

2D 

42 

50 2 A 

52 

45 

43 

48 

54 

2D 

53 

54 

52 

2E 

20 

5035 

34 

OD 

20 

20 

20 

20 

20 

20 

20 

20 

44 

5040 

2D 

36 

31 

30 

37 

20 

52 

45 

49 

4E 

48 

50 4 B 

45 

49 

4D 

20 

-'Jr v> 

OD 

OD 

00 

F5 

3E 

OA 

5056 

-rr> 

■*— 

23 

40 

Fl 

CD 

6D 

48 

53 

43 

4F 

52 

506 1 

45 

3A 

00 

2A 

11 

48 

CD 

AF 

OF 

CD 

6D 

506C 

48 

OD 

48 

49 

47 

48 

20 

53 

43 

4F 

52 

5077 

45 

3A 

00 

2A 

13 

48 

CD 

AF 

OF 

CD 

6D 

5082 

48 

20 

20 

20 

42 

59 

20 

00 

21 

ID 

48 

508D 

CD 

A7 

28 

F5 

3E 

01 

32 

23 

40 

Fl 

CD 

5098 

6D 

48 

OD 

OD 

55 

53 

45 

20 

4B 

45 

59 

50A3 

53 

20 

28 

3C 

29 

20 

41 

4E 

44 

20 

28 

50AE 

3E 

29 

20 

4F 

52 

20 

54 

48 

45 

20 

43 

50 B 9 

53 

2D 

4A 

4F 

59 

53 

54 

49 

43 

4B 

OD 

50C4 

52 

41 

49 

53 

45 

20 

cr-r 

50 

45 

45 

44 

50CF 

20 

57 

49 

54 

48 

20 

28 

53 

50 

41 

43 

50DA 

45 

29 

20 

4F 

52 

20 

46 

49 

52 

45 

20 

50E5 

42 

55 

54 

54 

4F 

4E 

00 

21 

98 

47 

22 

50F0 

20 

40 

F5 

3E 

OB 


23 

40 

Fl 

CD 

6D 

50FB 

48 

20 

50 

52 

45 

1 ~ 7* 
iJ-.> 

53 

20 

28 

53 

48 

5106 

49 

46 

54 

29 

20 

4F 

52 

20 

46 

49 

52 

5111 

45 

20 

42 

55 

54 

54 

4F 

4E 

20 

54 

4F 

51 IC 

20 

42 

45 

47 

49 

4E 

00 

3E 

07 

D3 

F8 

5127 

3E 

3F 

D3 

F9 

21 

80 

FB 

3E 

OE 

D3 

FB 

5132 

DB 

F9 

2F 

B6 

CB 

47 

20 

04 

CB 

7F 

28 

5 13D 

FO 

21 

00 

00 

22 

11 

48 

3 IE 

03 

T '*1 

1A 

5148 

48 

CD 

C9 

01 

3E 

OB 

32 

OD 

48 

3E 

FF 


GENIE DATA 17 


5153 

*T 'V 

OE 

43 

AF 


IC 

49 

21 

20 



315E 

4 er 
* 

48 

3E 

12 

“T O 

03 

48 

F5 

3E 

00 


5 16 9 

23 

40 

Fl 

21 

00 

00 


04 

4 9 



3174 

4E 


OA 

48 

3E 

05 


1B 

a 8 

06 

17 

5 2 7F 

rr. 

ED 

49 

20 

20 

20 

20 

20 

20 

20 

20 

3 ISA 

20 

2 '-"-' 

-.7 

DB 

20 

20 

20 

20 

20 

20 

20 

i Q^r. 

20 

20 

’2Q 

20 

20 

20 

20 

CF 

OD 

00 

1.0 

3 1 AO 

DE 

CD 

FS 

4C 

CD 

60 

49 

CD 

65 

4C 

3A 

3i Ai-:- 

20 

FS 

CB 

67 

C4 

AA 

4C 

CB 

~7~T 

C4 

BA 

SIE 6 

4C 

3E 

OE 

D3 

FS 

DB 

F9 

CB 

6 F 

CC 

AA 

51 CI 

4 C 

CB 

77 

CC 

BA 

4 C 

CD 

60 

49 

CD 

i rz\ 

Uul 

5 1 CC 

4C 

CD 

CB 

4C 

21 

6 F 

47 

1 1 

97 

47 

01 

51 D7 

6 F 

03 

ED 

ns 

2 1 

6 F 

F3 

1 1 

97 

F3 

0 1. 

5 i c 2 

6 F 

03 

ED 

B 8 

CD 

60 

49 

CD 

/.er 

w 

4C 

DD 

51 ED 

i 

04 

49 

CD 

50 

4 D 

DD 

1 

07 

48 

CD 

51 FS 

50 

4D 

DD 

i 

— X 

OA 

48 

CD 

50 

4D 

CD 

■60 

5203 

49 

CD 

65 

4C 

21 

00 

44 

22 

7.0 

40 

CD 

S2GE 

ac 

48 

20 

20 

20 

20 

20 

20 

20 

20 

20 

321* 

n 

7 o 

2 -.‘.' 

20 

20 

20 

20 

70 

2 Q 

20 

20 

3224 

20 

io 

20 

20 

20 

20 

20 

20 

20 

20 

20 

522F 

20 

20 

20 

20 

20 

20 

20 

20 

20 

00 


323A 

3E 

QO 

TOT 

23 

40 

Fl 

2 A 

OF 

48 


— * .' 

5245 

40 

3A 

CD 

49 

ca 

04 

35 

6 F 

CD 

6 G 

4E 

5250 

DB 

00 

oo 

20 

40 

CD 

6 D 

48 

CF 

00 

DD 

i: nerp 

- —UH' 

21 

04 

48 

CD 

50 

4 D 

DD 

21 

07 

43 

CD 


50 

4D 

DD 

21 

OA 

48 

CD 

50 

FD 

CD 

FF 

527 1 

4P 

er 

50 

4 C 

C3 

Al 

51 

F5; 

3E 

0‘‘ 


527C 

.‘“'“7*. ' 

40 

Fl 

r - 

w >«.• 

06 

4A 

T/T- 

J. •«* 

40 

CD 

9C 

5207 


32 

43 

48 

CD 

7 9 

49 

2A 

41 

48 

22 



V 



s 


Michael Baumann 


Das Programm ist ein Utility für 
das Colour Genie mit 16 oder 32 
Kilobyte Speicher. Es ist 3,1 K 
lang. 

Invers ändert zuerst einmal Gra- 
fikzeichen von 191 - 255 (dadurch 
bleibt die erste Hälft der Grafik- 
zeichen frei für eigene Verwen- 
dung). Danach werden diese, den 
Tasten entsprechend, im MODSEL 
Modus auf die Tasten, über die 
man normalerweise Grafiksymbole 
erreicht, verteilt. Danach sind auf 
jeder Taste 4 Buchstaben oder 
Symbole verteilt. 

In der Hardcopy sehen die in- 
versen Buchstaben etwas breit aus, 
aber dies mußte sein, da das Co- 
lour Genie das Bildschirmsignal für 
normale Fernseher verbreitert und 


dadurch schmalere inverse Zeichen 
nicht mehr als diese zu erkennen 
wären. 

Wie Sie die Drucker-Grafikzei- 
chen in den Zeilen 114, 125 und 
128 interpretieren müssen, läßt 
sich aus der Hardcopy erkennen. 
Nachdem die inversen Zeichen ge- 
neriert wurden, bleiben sie erhal- 
ten, bis die Grafikzeichen von 191 
bis 255 geändert werden, das Pro- 
gramm ist nach der Generierung 
nutzlos und kann vernichtet wer- 
den. Sie können natürlich auch in 
Zeile 130 ein DELETE 100-201 
bringen, welches bewirkt, daß das 
Programm sich nach der Generie- 
rung der inversen Zeichen selbst 
sofort rausschmeißt. 

Folgende Tabelle soll einen 


Colour Genie 


groben Überblick über das Pro- 
gramm geben : 

100 bis 110 

Die Grafikzeichen werden zur Mit- 
kontrolle auf den Bildschirm ge- 
bracht. 

111 

Unterprogrammaufruf zur Gene- 
rierung der inversen Zeichen. 

112 bis 130 

Bildschirmaufbau. Wie die Druk- 
ker-Grafikzeichen interpretiert 
werden geht aus der Hardcopy 
hervor. 

131 bis 201 

Unterprogramm, daß die inversen 
Zeichen generiert, mit Data-Zeilen 
und Lese-Schleife. 
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100 

101 

102 

103 

104 

105 

106 

107 

108 
109 
1 10 
1 1 1 
112 
1 13 
1 1 4 
1 15 
1 16 
117 
1 18 
1 1 9 
1 20 
121 
122 

123 

124 

125 

126 
1 27 
128 


PU = 411 
GR » 191 
CLS 

FOR I * 1 TO 4 
FOR J = 0 TO 15 
FU = PU + 1 
GR = GR + 1 
PRINT @PU, CHR$ (GR) ; 

NEXT J 

PU = PU + 24 
NEXT I 
GOSUB 131 

FOR I = 1 TO 500 : NEXT I 

CLS 

PRINT " tttttttttttttttt U I J -** 

PRINT : PRINT 

PRINT "Neue Tastenbelegung 
PRINT 

PRINT "Ohne <SHIFT> und <MODSEL> 

PRINT " QWERTYUIOPisASDFGHJKL; -ZXCVBNM, . / " 
PRINT 

PRINT "Mit < SH I FT > und ohne <MODSEL> :" 
PRINT "qwertyuiop ! asdf gh jkl+ = zxcvbnm< >?" 
PRINT 

PRINT "Ohne <SHIFT> aber mit <MODSEL> :" 
PRINT llün "-f üPeE0^t¥ÄoitNäxg .. x Uüöätä" 

PRINT 

PRINT "Mit < SH I FT > und <MODSEL> s" 

PR I NT " '-A l J H h I B — ■-*-8 r— P r — -r-i “ff" 


129 PRINT : PRINT 


130 

PRINT : END 





131 

DATA255, 231 , 

231 , 

129,231, 

231 , 

255,255 

132 

DATA255, 255, 

255, 

255,243, 

243, 

231 , 255 

133 

DAT A255 , 255, 

255, 

129,255, 

255, 

255,255 

134 

DATA255, 255, 

255, 

255,255, 

231 , 

231 , 255 

135 

DAT A255 , 249, 

243, 

231,231, 

207, 

159, 255 

136 

DAT A255 , 255, 

243, 

255, 243, 

243, 

231 , 255 

137 

DATA255. 249, 

243, 

207,207, 

243, 

249,255 

138 

DATA255, 255, 

129, 

255, 129, 

255, 

255, 255 

139 

DAT A255 , 159, 

207, 

243, 243, 

207, 

159, 255 

1 40 

DAT A255 , 195, 

153, 

243, 231 , 

255, 

231 , 255 

141 

DAT A255 , 195, 

153, 

145, 145, 

159, 

193, 255 

1 42 

DATA255, 195, 

153, 

153, 129, 

153, 

153,255 

143 

DAT A255 , 131 , 

153, 

131 , 153, 

153, 

131 , 255 

1 44 

DATA255, 195, 

159, 

159, 159, 

159, 

1 95,255 


145 DATA 255, 131 , 153,153,153,153,131, 255 

146 DATA255, 129, 159,135,159,159,129,255 

147 DAT A255 , 131 , 159, 135, 159, 159, 159, 255 


1 48 

DATA255, 

193, 

159, 

159, 

145, 

153, 

195, 

255 

149 

DAT A255 , 

153, 

153, 

129, 

153, 

153, 

153, 

255 

150 

DATA255, 

195, 

231 , 

231 , 

231 , 

231 , 

195, 

255 

151 

DAT A255 , 

129 , 

249, 

249, 

153, 

153, 

195, 

255 

152 

DAT A255 , 

153, 

147, 

135, 

147, 

147, 

1 53, 

255 

153 

DATA255, 

159 , 

159, 

159, 

159, 

159, 

131 , 

255 

154 

DAT A255 , 

153, 

129, 

153, 

153, 

153, 

153, 

255 

155 

DATA255, 

153, 

153, 

137, 

145, 

153, 

153, 

255 

156 

DATA255 , 

195, 

153, 

153, 

153, 

153, 

195, 

255 

157 

DAT A255 , 

131 , 

153, 

131 , 

159, 

159, 

159, 

255 

1 58 

DATA255, 

195, 

153, 

153, 

153, 

1 45, 

193, 

255 

159 

DAT A255 , 

131, 

153, 

131 , 

159, 

147, 

153, 

255 
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READ B% 

POKE A7. 

NEXT A7. 
RETURN 


4M.».« eJ: 

R - H D 


XC 


K 


VH 






rtM 




03353SCaa 


Ohne E.H--I F T :>• •• U.nd 
Q W E F T Y IJ I OFiS.'A S D,F! 6 H 

M i t / SH I FT >• und. 

6 '.<• e r t -i '-■! i o p\ äü ’.j * U f"i 


1 6 0 
16 1 
1 6 2 
1 6 3 

1 6 4 
165 

1 L. t. 
* w- >-> 

1 67 
168 
1 6 8 
1 70 
17 1 
17 2 
1 7-3 
17 4 
1 75 

1 77 
173 


1 78 
130 
1 3 1 
132 
1 37 
1 S 4 
1 35 
186 
1 37 
1 88 
1 38 
180 
1 8 1 
1 92 

193 

194 
1 95 
1 96 
1 87 
1 98 

1 99 

2 0 0 
20 1 


DATA255, 193, 158, 195, 

249 , 

153 

* 

13 1, 

255 

DATA255, 129,231,231, 

1 

-- -• X • 

23 1 


23 1 , 

nc;c 

DATA255, 153., 153, 153, 

153, 

153 

* 

1 95 . 

er er 
*- %J -J 

DAT A2S5 , 153, 153, 153, 

153, 

1 ö 5 

* 

2 7 * , 

. er er 
_/ «i 

DATA255, 153, 153, 153, 

153. 

12 9 

• 

1 53 , 

2 5 5 

DATA255, 133, 195,231, 

23 1 . 

1 95 

* 

153, 

2 55 

DATA255, 153 , 153 . 195 , 

n ? i 

jL. •_ X « 

231 

• 

7.3 1 , 

255 

DA7A25S, 128. 249, 243. 

207, 

15° 

* 

1 29 , 

2 5 3 

DATA255, 159, 20 7,231, 

•O c, 

‘T* ^ ^ 


•*o er er 

■~7 CT <T 

‘ — ■ » 


a 

Ju, 

± ij 

D A T A 2 55. 235 . 199.243, 

195, 

147 

« 

18 5, 

T* er. er 

DATA 255, 159« 159, 159, 

131 . 

153 

4 

131, 

255 

DATA255, 255, 255, 195. 

159, 

159 

« 

195, 

2 5 5 

DATA.235, 2:49, 249, 249. 

19 3, 

153 

« 

1 93, 

2 55 

DATA255. 255, l co , 147, 

1 35« 

15° 


1 99 . 

er er 

n Cu 7" C. ^ *=■ 0,7?' f'-'V’t — 1 7- er. 

L J rt . K _ w , -A, -J: / « 1 >• sJ * 

2 07 , 

207 


2 07 . 

25 5 

r'iTÜ'’ ,c ^ cr ' v* «=v « t O — " 1 a “7 

195« 

24 3 

4 

135, 

2 55 

D A T A 2 55 , 15 9 , 15 9 . 15 9, 

135, 

1 47 

« 

1 47 , 

er er 
iü J 

DATA255, 23 1 , 255,199., 

231 , 

23 1 

* 

185. 

'■? er er 
X. —1 \J 

D A T A 2 5 5 , 271. 2 55 , 13 1 , 

248, 

153 

.» 

195 , 

255 

DATA2S5. 159 , 159,139, 

147, 

132 


147, 

255 

DATA255, 199,231 , 231 , 

23 1 , 

-T 1 

* 

195. 

25 5 

DATA25S. 255, 255, 153, 

129, 

153 

4 

153, 

25 5 

DAT A2 55 , 253.253, 131 , 

153 , 

1 53 

* 

1 CT 
1 «.J « 

*- V J 

DATA255, 25.5, 255, 195, 

153, 

153 


185, 

-7 er er. 

DATA255, 255,195, 153, 

13 1 , 

159 

4 

158 , 

255 

D A T A 2 35 . 255 , 5 9.5 ,15 7, 

193, 

249 

.1 

249 , 

255 

DATA255, 253, 253, 135, 

77=; 

231 

* 

231 , 

255 

DATA255. 255, 2 55,225, 

2 0 7 , 

243 

* 

135, 

25-5 

DATA255. 231 ,195,231, 

23 1 , 

23 1 

« 

22? , 

255 

D A T A 2 55, 2 55 , 2 5 5 .133, 

153, 

153 

4 

1 93, 

255 

DATA255, 255.255, 157, 

153, 

1 95 

« 

231 , 

2 55 

DATA255. 255, 255, 153. 

153, 

129 

4 

1 53, 

2 5 5 

DATA255, 255, 255, 153 , 

23 1 , 

23 1 

4 

153, 

255 

DATA 255 , 255. 255, 153, 

1 83, 

249 

4 

243, 

255 

DATA255, 255, 255, 195, 
CH AR 1 
RE STORE 

FORA 7. = ?>. H F 6 Ö 0 T 0 & H F 7 F F 

243, 

207 

4 

195, 

255 
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Rainer Schmies 





ZAP ist ein Programm für den TRS 80 
oder Video Genie in Z80 Assembler- 
sprache geschrieben. Es ist eine Art In- 
vaderspiel mit Ton und Grafik. 

Sie haben die Aufgabe die Raumsta- 
tion, die in der Mitte des Bildschirms 
postiert ist, so zu steuern, daß Sie die 
von allen Seiten angreifenden Gegner 
abwehren können. Die Geschwindigkeit 
mit der die Gegner auf die Raumsta- 
tion zufliegen steigert sich dabei au- 
tomatisch. Gesteuert wird die Raum- 
station durch die vier Pfeiltasten, 
die bei Betätigung auch gleichzeitig 
einen Schuß in die entsprechende Rich- 
tung auslösen. Für jeden vernichteten 
Gegner erhalten Sie 63 Punkte. Haben 
Sie einen neuen Highscore aufgestellt, 


können Sie Ihren Namen eintragen. 
Durch Drücken der Break-Taste kann 
jederzeit das momentane Spiel abge- 
brochen und ein neues begonnen wer- 
den. Die Clear-Taste bringt das Pro- 
gramm zum vollständigen Abbruch. 
In jeder Phase des Spiels ist es mög- 
lich, das Spiel durch Drücken der Ta- 
ste S anzuhalten, nach Betätigen der 
Enter-Taste wird das Spiel fortge- 
setzt. 

Nach dem Abtippen des Listings 
können Sie das Programm auf Casset- 
te abspeichern. 

Start: 5200 H 

End: 61A0H 

Entry: 5224 H 
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3250 
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5200 
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E4 

3E 

DR 

3D 

DD 

52B0 

30 

E0 

3D 

E3 

3D 

EP 

3E 

00 

3E 

SO 

3E 

2P 

3E 

EP 

3D 

0P 

52C0 

30 

SP 

3D 

20 

3D 

EP 

3C 

ED 

3C 

F8 

3C 

F3 

3C 

FE 

3C 

36 

52D0 

30 

7S 

3D 

BS 
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FE 
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ED 
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7C 
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CD 
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01 
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18 

0F 

21 
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El 
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00 
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El 

3E 

20 

77 

ED 

B0 

5300 

C9 

3E 

03 

32 

10 

52 

3E 

18 

T*”.» 

0E 



0C 

51:! 

21 

20 

5310 

03 


0« 

52 

21 

00 

00 


0S 

52 

21 

47 

54 

11 

O-..' 

30 

5320 

01 

13 

00 

ED 

B0 

21 

95 

54 

li 

43 

3F 

01 

3B 

00 

ED 

Bß 

5330 

21 

ES 

54 

11 

SS 

3F 

01 

35 

00 

ED 

B0 

CD 

68 

60 

DD 

21 

5340 

53 

52 

3E 

4P 

DD 

5E 

00 

DD 

55 

01 

F5 

CD 

SC 

53 

Fl 

DD 

5350 

23 

DD 


3D 

20 

EE 

21 

80 

3C 

01 

C0 

02 

7E 

FE 

20 

20 

5380 

05 

3E 

BF 

77 

ie 

07 

CB 

7F 

28 

03 

EE 

3F 

77 

23 

0B 

78 

5370 

Bl 

20 

E9 

CD 

F8 

53 

CD 

D7 

53 

CD 

2B 

00 

CP 

5G 

53 

FE 

5380 

1F 

CP 

D0 

54 

FE 

0D 

CO 

SS 

55 

C3 

5S 

53 

0b 

03 

10 

CB 

5330 

FF 

CB 

£F 

12 

CD 

BE 

53 

10 

CB 

£7 ~y 

12 

CD 

BE 

5 ’S 

io 

CB 

5300 

DF 

12 

CD 

BE 

53 

10 

CB 

D7 

12 

CD 

BE 

53 

10 

CB 

CF 

12 

S3B0 

CD 

BE 

53 

ift 

CB 

C7 

12 

CD 

BE 

cr-r 
■.} ^ 

13 

10 

Dl 

C9 

D9 

38 

53C0 

CD 

S3 

S0 

CD 

C9 

53 

08 

D9 

C3 

0E 

03 

3E 

01 

D3 

FF 

3E 

53D0 

03 

D3 

PP 

0D 

20 

F5 

C9 

3F. 

01 

D3 

FF 

30 

55 

52 

47 

10 

53E0 

F£ 

3E 

03 

D3 

FF 

30 

55 

uJ xL 

3D 

FE 

00 

CC 

F5 

53 

32 

55 
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53F0 

52 

47 

10 

FE 

C3 

3E 

32 

C9 

30 

54 

52 

3D 

32 

54 

52 

CB 

5400 

57 

C2 

18 

54 

21 

40 

54 

11 

8C 

3F 

01 

07 

00 

ED 

B0 

21 

5410 - 32 

54 

11 

03 

3F 

01 

07 

00 

ED 

B0 

C9 

21 

39 

54 

11 

03 

5420 

3F 

01 

07 

00 

ED 

B0 

21 

32 

54 

11 

SC 

3F 

01 

07 

00 

ED 

5430 

B0 

C3 

20 

20 

20 

20 

20 

20 

20 

3C 

43 

4C 

45 

41 

52 

3E 

54 t S 

3C 

45 

4E 

54 

45 

52 

3E 

52 

41 

49 

4E 

45 

52. 

20 

53 

43 

5450 

48 

4D 

43 

45 

53 

20 

50 

52 

45 

vJ-Jl* 

45 

4E 

54 

53 

20 

30 

5460 

50 

52 

45 

53 

53 

20 

3C 

45 

4E 

54 

45 

52 

3E 

20 

54 

4F 

5470 

20 

53 

54 

41 

52 

54 

20 

47 

41 

4D 

45 

2C 

20 

3C 

43 

4C 

5430 

45 

41 

52 

3t 

20 

45 

4F 

52 

20 

49 

4E 

53 

54 

52 

55 

43 

5430 

54 

43 

4F 

4E 

53 

43 

4F 

50 

59 

52 

49 

47 

43 

54 

20 

28 

5400 

43 

23 

20 

31 

39 

33 

33 

20 

42 

59 

20 

52 

41 

49 

4E 

45 

54B0 

5ii! 

20 

53 

43 

48 

4D 

49 

45 

53 

2C 

20 

43 

4F 

4C 

4F 

47 

34C0 

4E 

45 

2C 

20 

57 

45 

53 

54 

2D 

47 

45 

52 

4D 

41 

4E 

59 

5403 

CD 

53 

55 

7E 

CB 

8F 

77 

CD 

50 

55 

20 

F7 

CD 

53 

55 

7E 

5420 

CB 

97 

77 

CD 

50 

55 

20 

F7 

CD 

53 

55 

7E 

CB 

9F 

77 

CD 

54 Fß 

5h 

55 

20 

F7 

CD 

53 

55 

7E 

CB 

07 

77 

CD 

50 

55 

20 

F7 

550ß 

CD 

53 

55 

7E 

CB 

OF 

77 

CD 

50 

55 

20 

F7 

CD 

53 

55 

7E 

55 iS 

CB 

BF 

77 

CD 

50 

55 

20 

F7 

CD 
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... gezielt werben im GENIE DATA-WER-WAS-WO-Einkaufsfiihrer! 


Wer-Was-Wo 


EINKAUFS-FÜHRER 


Anzeigenannahmeschluß 
für die Nummer 4, 1984 
ist der 

20. Juni 1984. 


MÄUSERENNEN - HELIKOPTER 

Die Mäuse rennen, die Helikopter fliegen! 1 1 

Aber noch ist es Zeit auch für Siel Machen Sie mit! Noch 

können Sie gewinnen! 

Eisendeschluß für die letzte Rennmaus und den letzten 
Helikopter-Flug ist der 2(1 Juni 1984. Also losl 1 1 

NOCH IST ZEIT, ETWAS ZU GEWINNEN 1 1 1 



Mitteilung - Mitteilung - Mitteilung - Mitteilung - Mitteilung 
Mit der nächsten GENIE DATA startet unsere Aktion 
LESER SUCHT LESER. Unter dieser Rubrik kann jeder 
GENIE DATA Leser seine Adresse veröffentlichen, um 
Kontakte zu anderen Lesern zu finden. Wenn Sie mit- 
machen wollen, schreiben Sie uns eine Postkarte, auf der 
Ihr Absender steht und auf der Ihre haupsächlichen Inte- 
ressen angegeben sind. Z. B. Paul Müller, Meierstr. 4, 
1234 Schulzhausen, Interessengebiet: A/D Wandler, Colour 
Genie. Und wie gesagt, dieser Service ist kostenlos für alle 
Teilnehmerl Aber: Unter dieser Rubrik werden wir keine 
Softwaretausch Anzeigen veröffentlichen! 



W A 


COLOUR - GENIE SOFTWARE 

n^SCHMIDTKE . 

l M-i electronic [aktuell 

/ l| Büro- und Personalcomputer ^preiswert 

1 __ So ndka ul sfraße 84 - Telefon: 02 41-2 32 17 

V 5100 AACHEN 

Wirsenden Ihnen gerne unseren Softwarekatalog mit über 100 Programmen! (Natürlich kostenlos!) 

ANDROMEDA 

Ein eretk I *»sl gee dr» I dlmenel onel » i Ue 1 t r jumip I e 1 mit «niprech- 
•nd*r Grafik. Feindlich» Raumvch I f f • Kommen auf 31» zu| ver- 
nichten Si« dl»a«, btuor Ihnen wertvoll» En*rgl» abgezepft 
Mlrd. Ist di» Zelt abg»lauf»n, io • I I t Ihnen Ihr» Mutterbasis 
zu Hilf», aber das Auftanken will auch gelernt sein. 

<TCS> Art. 820 39.- DM 


PAC-LAB . tüdh P. Thomas) 

Endlich »In» wirklich gelungen» Uertlon des bekannten und 
berühmten 'P*C - Man' non Atari ! 

Mit wunderbarer Grafik, Ton, etc. Im Gegensatz zum Original 
vergröBert sich dl» Anzahl der 'Geister' Im Spielverlauf und 
macht das Spiel somit noch Interessanter. In einem Labyrinth, 
das den gesamten Bildschirm ausfüllt, müssen Sie als 'Evil - 
Emil' möglichst viele Punkt» sammeln, ohne von den 'Geistern' 
eingefangen zu werden. Die besten Spieler werden In einer 
Recordlist» angezeigt, so daß Sie In Ihrer Familie o.i. regel- 
rechte Wettkämpfe austragen können. Pac-Man ist eines der äl- 
testen Video-Spiel» und eines der schönsten. Nicht um- 

sonst ist es so berühmt! 'PAC-LAB' Ist die verbesserte Uerslon 
für Ihr Col our-Gen I e . Art. 833 S»S 39.- CM 


PAC-LAB II 

Die Nachf ol gever s 1 on von PAC-LABi Das Bildschirmformat wurde 
durch Umprogr tim I »rung des CRTC vergrößert, so daß »In noch 
größeres Labyrinth zur Uerfügung steht. Der Ablauf Ist etwas 
abgewandelt und dl» Geschwindigkeit steigert sich von Spiel zu 
Spiel »norm. PAC-LAB II Ist somit noch Interessanter, noch 
schneller und noch schwieriger zu spielen. Natürlich mit 
ausgezeichneter Grafik und heruoragendem Ton. Geschrieben von 
Patrlc Thomas. Art. 048 SeS 49.- CM 


r 
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MOTTEN 

mit iJ.hi UildkChi -i erkCheInt eine Kolonne MOTTEN, die zunechkt 
im Sturzflug auf Si» her n l • d*r f a 1 I t . Danach schwirren Sie Uber 
den BlIJkChirm, »etzen mit der Zeit inwner öfter zu blitzartigen 
Sturzllugen an und beschießen Sie mit Torpedos. Wehren Sie 
sich ! ... aber mit Bedacht. Jeder Schuß uon Ihnen, der Keine 

Motte trifft, verschlechtert Ihr Gesamt e rgebn i s . 

<TCS>' Art. a22 39.- CM 


VIER GEWINNT 

Das ABSOLUTE OENKSPIEL !! — Ihr kleinster Fehler wird vom 

Computer bemerkt. Oie kleinste Unau fmerk samke I t führt zum 
Verlust der Partie. Oer Computer kontert schnell und zuver- 
lässig, Sie haben fast keine Chance. Ziel ist es, Spielsteine 
In ein senkrechtes Gitter einzuwerfen und dabet vier Steine 
waagerecht, diagonal oder senkrecht nebene I nander zu 
platzieren. Das Programm arbeite! in Maschinensprache, so d»0 
der Gegenzug sehr schnell berechnet wird. 

(Kurt Sinken Art. 052 SeS 25.- DM 

LABYRINTH Mlr) 

£ » o Sp i * I für Leut* mit gutem räumlichen Denkvermögen 1 
Sie befinden sich ln einem Labyrinth und sehen nur Mauern, Gin- 
gt und Türen vor sich. Ihr Ziel ist es mit möglich! wenigen Zü- 
gen den Ausoang io finden. Art. 913 SeS 1?.- DM 

ZAUBERWÜRFEL 

Wer kennt ihn nicht, den 'MAGIC - CUBE' mit seinen unzähligen 
Möglichkeiten. Mit diesem Programm haben Sie Ihren Zauberwurfel 
In den Computer gebannt. Sie können ihn per Tastatur in jede 
Richtung drehen. Schaffen Sie es, ihn richtig zusammen zvse t zen 5 
Weiten daS, Sie verzweifeln 1 

<*:■ Mir) Art. 014 SeS 1 9 . - DM 

MASTER MIND 

gr oiff äpiel , . . . für klwq* Köpft 1 

Kombi rVitrtn Sit richtig, uitr ten Sie dit Hinozeis* aus 
und knacken Sie den Farben - CODE des Computers. 

Es Ist kein leeres Versprechen, wenn wir Ihnen sagen, 
daß schon nach kurzer Zeit di» Köpf» 'qualmen'* 

<*■ Mir > Art. 013 SeS I?.- DM 

MAXIMILIAN & Rzwo-Dzwo . 32 k 

im film unmöglich ist, Ihr Cotour Genie schafft es. 
Maximilian aus dem 'SCW»**R2EN LOCH' und der sympat Ische 
firwo-Druio aus dem 'KRIEG OER STERNE' sowie seine Brüder treffen 
sich zu einem Duell. Strategisches Denken ist Uor ausse t zvng , um 
gegen den Computer gewinnen zu können. In dieser Nlm-Sple! 
Variante mit schönsten grafischen Leckerbissen haben 5ie eine 
Gewinnchance von ma*. 337 . 1 (und das nur bei den ersten Zügenj 
spätere Fehler führen unweigerlich zum Miserfolg.) - Natürlich 
mit Musik und Soundeffekten. ACHTLNG: Oa dieses Programm sehr 
umfangreich ist, mu8 Ihr Colour-Genie bereits auf 32 K RAM 
au sgebau t sein. 

<R- Mir) Art. 918 SeS 23.- DM 
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Assembler -Teil 4 



Es geht weiter mit unserem As- 
sembler-Kurs. Bevor Sie sich jetzt 
aber alles nachfolgende einverlei- 
ben, zuerst die Auflösung der Fra- 
gen aus Teil 3: 

1. Das R-Register ist das Refresh- 
Register und wird zur Auffri- 
schung für die RAM-Bausteine 
gebraucht. 

2. Das Beispiel beginnt bei Adresse 
7F00H = 32512. 

3. Nein, es kann nur mit A oder 
A', aber nicht mit beiden zu- 
gleich, gearbeitet werden. 

4. Die größte Zahl ist 65535 und 
die kleinste 0. 

5. Nein! Das C-Register ist ein 8- 
Bit Register, die größte Zahl die 
es aufnehmen kann, ist also 
255. 

6. Das geht! Das BC-Register ist 
16-Bit breit, die größte Zahl ist 
also 65535. 

7. Man ändert in Zeile 40 die Zahl 
3FFH in 10 (oderOAH). 

Wenn Sie mehr als eine Frage 
falsch beantwortet haben, sollten 
Sie sich den letzten Teil des As- 
sembler-Kurses noch einmal 
durchlesen, ansonsten machen wir 
weiter. 

Wie im letzten Teil schon an- 
gekündigt, wollen wir uns heute 
einmal etwas näher mit dem Hexa- 
dezimal-System befassen. Um ganz 
genau zu sein, muß ich sagen, daß 
es eigentlich Sedezimai-System 
heißt, da sich aber Hexadezimal 
eingebürgert hat, wollen wir diesen 
Begriff auch benutzen. 

Woher kommt also das Hex- 
(Hex = Hexadezimal!) System, 
und wofür braucht man es? 

Das ist beides schnell beantwor- 
tet! Es kommt (woher auch 
sonst?!!) aus Amerika. Und zwar 
von „Big Blue". Ganz richtig, 
von IBM, Man hatte sich da Ge- 
danken gemacht, wie man duale 
Zahlen übersichtlicher darstellen 
kann, als mit den vielen Nullen 
und Einsen. 

Man kam auf die glorreiche 


Idee, jeweils vierstellige Dualzah- 
len zusammen zu fassen und ge- 
langte zu folgendem: 

: 0000 = OH : 

0001 = 1H 

0010 = 2H 

0011 = 3H 

0100 = 4H 

. 0101 =5H 

01 10 - 6H 

0111 =7H 

1000 = 8H 

1001 = 9H 

1010 = AH 

1011 = BH 

1100 = CH 

1101 = DH 

1110= EH 

1111 = FH 

Das war natürlich sehr praktisch! 
Jetzt konnte man z. B. die duale 
Zahl 11100101 durch E5H erset- 
zen (E5H = 229). Man sparte da- 
durch viei Schreibarbeit und die 
Arbeit beim Programmieren war 
weit weniger fehlerträchtig. Alle 
anderen Firmen, die sich bis dato 
noch mit dualen Zahlen quälten, 
gefiel diese Idee so gut, daß man 
sie übernahm. 

Nachdem Sie jetzt wissen, wozu 
Hex-Zahlen gut sind, und wo sie 
herkommen, wenden wir uns dem 
Problem zu, wie man sie in unser 
dezimales System umrechnet, und 
umgekehrt. 

Also: Die linke Stelle einer: 


Hex-Zahl hat folgende Werte : 

1 = 1H 
- 2 = 2H 

T 3 = 3H ' 

4 = 4 H 
' 5 = 5H 
. 6 = 6H 

' 7 = 7 H 
8«8H 
9 = 9H 

10 = AH : 

. 11 =8H 

12 = CH 

13 = DH . 

14 = EH 

15 = FH 

(Wie Sie sehen, ist die Hex-Zahl 
immer durch ein nachgestelltes H 
gekennzeichnet!). 

Die nächste Stelle ( zweite 
von links) hat die gleichen Werte, 
aber multipliziert mit 16. Die 
nächste Stelle hat die gleichen 
Werte mal 256, und die letzte Stel- 
le hat die gleichen Werte mal 
4096. Wieso die letzte Stelle? 
Es gibt doch sicherlich mehr Stel- 
len als 4 ? 

In der Tat ! Aber die größte dar- 
stellbare Zahl ist ja 16-Bit breit. 
Mit einer Hex-Zahl stellen wir 4 
Bit dar. Also brauchen wir nicht 
mehr als 4 Stellen, denn 16 ge- 
teilt durch 4 ist gleich 4. 

Schauen wir uns einmal eine 
Wertetabelle für 4 stellige Hex 
Zahlen an : 


Jetzt wandeln wir die Hex-Zahl 
1FE2H in das dezimale System 
um. Und zwar Schritt für Schritt! 


4. Stelle 

3. Stelle 

2. Stelle 

1 . Stelle 

16 3 =4096 

16 2 =256 

CO 

ii 

r4 

CO 

16° = 1 



POP AF 
POP IN 
EX DE, HL 
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1 FE2H 




- 2 x 16° = 2x1=2 
-14 x 16 1 ~ 14 x 16= 224 
-15 x 16 2 - 15 x 256 - 3840 

- 1 X 16 3 = 1 x 4096 = 4096 

ai62 


Also ist 8162 die gesuchte. 'Lösung. 
Wenn Sie übrigens nicht rhehr die 
Zahlenwerte zu den Buchstaben 
A bis F kennen, können Sie die 
in der Tabelle von eben nachle- 
sen! 

Jetzt wandeln wir mal rück- 
wärts. Also eine dezimale Zahl ins 
Hex-System : 

Dazu teilen wir ganz einfach durch 
die größtmögliche Potenz von 16. 
Ein Beispiel : 

39458 : 4096 = 9 Rest 2594 

2594: 256 =10 Rest 34 

34: 16= 2 Rest 2 

2 : 1=2 Rest 0 

Jetzt müssen wir noch die ganz- 
zahligen Ergebnisse (9,10,2,2) an- 
hand unserer Tabelle in die kor- 
rekte Zahlen/Buchstabenkombina- 
tion überführen: 

9 = 9 
10 = A 
2 = 2 
2 = 2 

Die dezimale Zahl 39458 ist also 
gleich 9A22H! 

Pause! ! ! 

Entspannen Sie sich, lesen Sie den 
ersten Abschnitt nochmal, dann 
geht es weiter. 

So leid es mit tut, wir hatten 
Theorie, und machen auch jetzt 
wieder mit Theorie weiter. Es wird 
nämlich warscheinlich wenig sinn- 
voll sein, wenn ich Ihnen Bei- 
spielprogramme gebe, ohne das Sie 
einen Überblick über den komplet- 
ten Befehlssatz haben, den Ihr 
Z 80 versteht. Deshalb fangen wir 
zuerst einmal mit den verschie- 
denen Ladebefehlen an. Vorher 
aber noch einen Überblick über 
die verwendeten Abkürzungen : 
r = eines der Register A, B, 
C, D, E, H, L. 

n = Eine 8-Bit Konstante, 
also eine Zahl zwischen 


0 und 255. 

IN = Eines der Register IX 

oder IY. 

nn = eine 16-Bit Konstante 

(Zahl zwischen 0 und 
65535). 

ss = Eines der Register-Paare 

BC, DE, HL. 

d = Ein 8-Bit Offset (Er- 

klärung spater!). 

Jedem Befehl steile ich ein 
Äquivalent in Basic gegenüber, so 
dürfte die Funktion des Befehles 
für Sie am leichtesten durchschau- 


bar werden. Also, es geht los! Hier 
sind die 8-8it Ladebefehle : 

8-Bit Ladebefehle 

LD r,r 

— r = r 

LD r,n 

- r = n 

LD r,(HL) 

— r = Peek(HL) 

LD r,(IN+d) 

- r = Peek(lN+d) 

LD (HL),r 

— Poke HL.r 

LD (IN+d),r 

- Poke IN+d,r 

LD (HL),n 

- Poke HL,n 

LD (IN+d),n 

— Poke IN+d,n 

LD A,(BC) 

- A=Peek(BC) 

LD A,(DE) 

- A=Peek(DE) 

LD A,(nn) 

— A=Peek(nn) 

LD (BC),A 

- Poke BC,A 

LD (DE),A 

- Poke DE,A 

LD (nn),A 

— Poke nn,A 

LD A,l 

- A = 1 

LD A,R 

- A = R 

LD |,A 

- 1 = A 

LD R,A 

- R = A 

Ladebefehle 16-Bit 

LD ss,nn 

— ss= nn 

LD IN.nn 

— IN = nn 

LD ss,(nn) 

- ss = Peek(nn) 

LD IN,(nn) 

- IN = Peek(nn) 

LD (nn),ss 

- Poke nn,ss 

LD (nn),IN 

— Poke nn,IN 

LD SP, HL 

- SP = HL 

LD SP, IN 
PUSH ss 

- SP = IN 

PUSH AF 

— 

PUSH IN 

— 

POP ss 

— 


EX AF.AF' 
EXX 


EX (SP), HL 
EX (SP), IN 


— Tausche DE und 
HL. 

— Tausche AF und 
AF'. 

— Tausch AF, BC, 
DE und HL mit 
AF', BC', DE' 
und HL'. 

— Tausch (SP) mit 
HL. 

— Tausch (SP) mit 
IN. 


Die PUSH und POP Befehle 
sind etwas kompliziert und lassen 
sich nicht so ohne weiteres in Ba- 
sic simulieren, eine Erklärung hier- 
zu folgt, wenn wir uns den Stack- 
Pointer näher betrachten. 

Wenn Ihnen diese Tabellen jetzt 
auch noch nicht allzuviel sagen, so 
brauchen wir sie doch später als 
kleines Nachschlagewerk, deshalb 
folgen in der nächsten GENIE 
DATA die restiichen Befehle. 

Hier noch die Aufgaben : 

1. Wandeln Sie ins Dezimal-Sys- 
tem: 43A2H, F49AFI, BCD3H 
und 123FH. 

2. Wandeln Sie ins Hex-System: 
63492, 13412, 34392 und 48798. 

3. Entwickeln Sie ein Basic-Pro- 
gramm, das Hex-Zahlen in Dezi- 
mal-Zahlen wandelt und umge- 
kehrt. 

Tschüss, bis zum nächsten Mal ! 



Die nächste GENIE DATA 
erscheint am 
15. Juli 1984. 



Anzeigenannahmeschluß 
für die Nummer 4, 1984 
ist der 

20. Juni 1984. 
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Solitair für das Colour Genie, un- 
ter Ausnutzung aller grafischen 
Möglichkeiten, die dieser Compu- 
ter im Textmodus bietet. Nach- 
stehend einmal ein Bildschirmaus- 
druck, der etwas vom Spielge- 


schehen zeigt. 

Da dieses Spiel sich mit allen 
Funktionen selbst erklärt, soll 
hier auf eine Erklärung verzich- 
tet werden. 

Bleibt uns nur noch, Ihnen viel 


Spaß zu wünschen, und sollte 
Ihnen das Eintippen zuviel Arbeit 
sein, können Sie das Spiel auf 
Cassette für 19,80 und auf Dis- 
kette für 29,80 beim Verlag 
beziehen. 



— - S oli tai r 

> oH'XH«) 
X X X 
2 5 (>H Ho) 
I. X X 


HoHroHoHoHo'H©) 
X X X X X X 

H. o } — ( ® ) — ( Hi H ■( o H o ) 

't'' r" ‘t" "t - * r“ ~~r~ 


- X X x X X 
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‘i,l sicher S t e i n ? 


10 CL5 
20 C0L0UR2 
30 PR I NT @0 ? " 

40 PRINT"^ 

50 C0LDUR7 

öO PRINTQ2S3? A 

70 PRINT" ■ ■ ■ a 

30 PRINT" ■ ■ ■ ■ 



■ ■ B ■■■■■■ 


90 PRINT" 
100 PRINT" 
110 PRINT" 
120 PRINT" 


■ 



r r r 


■" 

r" 


130 PRINT@686.- "von U.Groke 516 Dueren" 

140 PRINT@806^ "Anleitung = A — Spielen = S" 
150 CDLQUR2:PRINT@880 ? 


»I 
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160 PRINT" '' m M mammmmmmmmmmmmmmmmmmmmmmmmmmr " ; 

170 F0RI=80T0B4Ö STEP40 
ISO PRINTÖI , : PR INT® I +39? 

190 NEXTI 

200 CDLDUR5: P=S2: GDSUB21 90: P=1 16: GDSÜB21 90: F-B02: G0SUB2190: P-B36: GÜSUB 
2190 

210 B$=INKEY$: IFB$=" "THEN210 
220 I FB$= "S "THEN 400 
230 IFB$=" A"THEN 250 
240 G0T0210 
250 CLS 

260 CDL0UR5: PRINTTAB (13) "Sni el anwei suns " 

270 C0LDUR7: F'RINTTAB ( 13) " " 

2S0 CGLDUR2 

290 PRINT: F'RINT"Beim Sol i tai rsp'i el sollen moeglichst viele Figuren 
durch Ueberspr i nsen geloescht werden. Nach 

dem Endzug soll die letzte Figur im Zentrum stehen." 

300 PRINT:PRINT"Mit den Pfeiltasten bringt man den Mar ki erunsspt e 

il aut die anzuwaehl ende Figur.-, drueckt die Leertaste? und gibt 

mit den P-f eil tasten die Sprung- richtung an. 

310 F -696 : GDSUB2930 : P=699 : GÖSUB2930 : F -702 : G0SUB2930 
320 C0LQUR6 : PR I NT0737 , " 0 " 

330 CDLDUR5: PRINTS74Ö» 

340 C0LDUR7: PRINTS81S? CHR$ (255) ? " " 5 CHRS (255) 5 " "?CHR*<255) 

350 C0L0UR5: PRINTS920» •%' ♦ * * ♦ ♦" ? 

360 C0LÜUR7: PRINTS935» "Weiter = W"5 
370 B$=INKEY$: IFB$=" "THEN37Ö 
380 I FB$= " W " THEN400 
390 G0TD370 >YY'S' V : 

400 CDL0UR2: G0SUB2680: Z =32: CLS 
410 D I Ml S (77) ? P (77 ) ' . 

420 FGR)(=1T07: FQRY=1TD7 
430 X1=X+10+Y: READA: READB 
440 P ( )< 1 ) = A : S ( X 1 ) =B 
450 IF A= 1 TUEN 470 
460 F ,= F’ (XI ) ~41 : GDSUB293Ö 
470 NEXTY» X 
480 FORI = 1 TD7 

490 READA : READB : RE ADC : READD 

500 PRINTSA» CHR$ (129)5 PRINTÖB? CHR* (132) s PRINTSC» CHR$ (134) : PRINTSD, CHR$ 
<i3i) ; 

510 NEXTI 

520 C0L0UR3: PRINT04» CHR$ ( 172) 5CHR$<172> 5CHR*<172) 5CHR*(172) ?CHR$(172) 
530 C0L0UR2 : PR I NTS46 » "tssmmm" ; CHR$ ( 161 ) 5CHR$(162) 

540 PR I NTS90 , CHR$ ( 1 63 > CHR*tl64 ) 

550 C0L0UR3*PRINTS92»CHR*( 165) 

I 560 PR I NTS32? CHR$ ( 171 ) 5 CHR$ (171) : CHR$ (171) CHR$ (171) 5 CHR$ (171) 

570 C0L0UR2: PRINTS68» CHR$ ( 156) 5CHR$(157) 5 "W— " : PRINTS109» CHR$ ( 159) 5 C 
HR$( 160) 

580 C0LGUR3: PRINT® 108? CHR$ (158) 

590 C0L0UR2:PRINT@762?CHR*Q7Ö> : PRINT08O2? CHR* ( 1 44) 5CHR*(145) JPRINTSS4 
I 2 ? CHR$ (146) ? CHR$ (147) 

600 PRINT079S? CHR$ ( 170) : PR.INTS837» CHR$ (152)5 CHR$ ( 153) : PRINT@877? CHR* ( 1 
54) 5 CHR$ ( 1 55) 

610 F0RI=1T04 

620 READA : READB : F - A : GQSUB2070 : P=B : G0SUB21 30 
630 NEXTI 

| 640 F0RI=1TD8 

650 READA : P= A s 60SUB2 1 90 
660 NEXTI 

f • 

I 

S 
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670 C0L0UR7 : F'R I NT0882 , 11 — - ' — ' ' “ — “ 1 ' ' 5 

680 C0L0UR5: PRINT® 13, " — Solitair — " 

690 FDRI=1 1T077 
700 IF F'(I>=1 THEN 730 
710 C0LDUR5 

720 I F 5 ( I > =2 THEN PRI NT@P < I ) , " 

730 NEXTI 
740 G0T0770 

750 FGRJ = 1TG50:NEXTJ:F'LAY(1, 1,1,0) 

760 F0RJ=1T050: NEXTJ : RETURN 

770 C0L0UR5! F'RlNTl5920, " * * Spielen = S * * Vorfuehren = V ♦ ; 

780 A$=INKEY*: IFA$=" "THEN780 

790 I FA$= " S " THEN820 

800 IFA$="V 1 ' THEN 1650 

810 G0TD780 

820 L=460:X=20: Y=ll 

830 C0LDUR2 = PR I NT@2 1 2, Z : PR I NTS225 , Z : GOTO 1 450 

840 C0L0UR2: PRINT(ä920, " Welcher Stein ? 

350 M=F'EEK < 17408+L) 

860 CDL0UR7 : PR I NTÜL , CHR$ (251) 

870 A=F'EEK (-1984) 

880 IFAAND64 THEN IFX<29 THEN X=X-M 
890 IFAAND32 THEN IFJOll THEN )<=)<- 1 
900 IFAAND16 THEN IFY<20 THEN Y=Y+1 
910 IFAAND8 THEN IFY>2 THEN Y=Y-1 
920 IF M=23C> THEN C0L0UR5: G0T0960 
930 IF N=15B THEN C0L0UR3: GDT0960 
940 IF M=165 THEN C0L0UR3: GÜT0960 
950 CQL0UR2 
960 PR I NTiäL , CHR$ (M) 

970 IFAAND128 THEN 1000 

980 l=y*40+x : . . , ':;f, vp x: 

990 GOTO 850 . v - 

1000 I 1=0: F0RI=1 1T077 

1010 IF P ( I ) =L THEN F=I : 1=77: I 1=1 

1020 NEXTI 

1030 IF 11=0 THENS50 
1040 IF S (F ) =2 THEN 1060 

1050 G0T0850 • 

1060 F2=F-INT (F/10>*10 
1070 IF F~20< 1 THEN 1090 

1080 IF 5 (F— 10) =2 AND S(F-20)=1 THEN 1160 
1090 IF F+20>77 THEN 1110 

1100 IF S (F+10) =2 AND S(F+20)=1 THEN 1160 
1110 IF F2-2< 1 THEN 1130 
1120 IF S (F-l ) =2 AND S(F-2>=1 THEM 1160 
1130 IF F2+2>7 THEN 850 

1140 IF S (F+l ) =2 AND S(F+2)=1 THEN 1160 
1150 GDT0850 

1160 CDLGUR2 : F'R I NT©920, " Welche Richtung " ? CHR* (232) 5 " " ? CHR$ ( 

255);" " s CHR$ (251 ) ; " " ; CHR* (253) ; 

1170 CÜLDUR6: PRINT0L, "0" 

1180 GDSUB 2030 
1190 A=PEEK ( -1984) 

1200 I FAAND64 THEM B=1 : Fl=l : G0T01260 
1210 IFAAND32 THEN B=-l : Fl=-1 : GOTO 1280 
1220 IFAAND16 THEN B=40: Fl=10: GOTO 1300 
1230 IFAAND8 THEN B=-40 : F 1 =- 1 0 : GOTO 1 320 
1240 IFAAND1 THEN CQLGUR5: PRINTÖL, : G0TÜ820 
1250 G0T01 1 90 
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1260 IF F2+2>7 THEN 1190 

1270 GOTO 1330 

1280 IF F2-2< 1 THEN 1190 

1290 GOTO 1330 

1300 IF F+20>77 THEN 1190 

1310 GOTO 1330 

1320 IF F-2ÜC1 THEN 1190 

1330 IF 5 (F+F 1 ) =2 AND S<F+2*F1)=1 THEN 1350 
1340 GOTO 1190 

1 350 A=F : C=F+2*F 1 : GOSUB 1 970 : GOSUB 1 700 
1360 5 (F) =1 : S (F+Fl >=1 : S <F+2*F1 ) =2 
1370 L=F(F+2*F1> : y=INT (L/40) : ><=L~ < Y*40> 

1380 Z=Z-1 
1390 G0T0830 

1400 IF 5 (44) =2 THEN CGLGUR5: PRINT0920 , "Du hast es geschafft, 
mal = N"?: GOTO 1420 

1410 CDL0UR7: PRINT@920? "Ni cht die richtige Endposi t i on . Nochm. 
1 420 B$= I NKE Y$ : I FB$= " " THEN 1 420 
1430 IFB$="N"THEN RUN400 

1440 GOTO 1420 Ü '% U. « 

1450 F=10 

1460 IF Z = 1 THEN 1400 

1470 F=F+1: IFF=77THEN 1 61 0 .... 

1480 IF P ( F > - 1 THEN 1600 

1 490 I F S ( F > =2 THEN 1510 • 

1500 GOTO 1470 

1510 F 2=F- INT < F / 1 0 ) +' 1 0 

1520 IF F-20< 1 THEN 1540 

1530 IF 5(F-10>=2 AND S(F-20>=1 THEN 840 
1540 IF F+20>77 THEN 1560 > 

1550 IF 5<F+10>=2 AND S<F+20>=1 THEN 840 

1560 IF F2-2< 1 THEN 1580 ' 

1570 IF S (F-l ) =2 AND S(F-2)=1 THEN 840 

1580 IF F2+2>7 THEN 1600 ' - 

1590 IF S (F+l ) =2 AND 5(F+2>=1 THEN 840 

1600 GOTO 1470 

1610 C0L0UR5 

1620 P=729: G0SUB21 90= P=750: GDSUB2190 

1630 PRINTS920» "Du hast es nicht geschafft mi t " 5 Z 5 " ♦" S 
1640 GOTO 1640 

1650 PRINT092O, " Vorfuehren "S 

1660 CQL0UR5: F0RJ=1T031 
1 670 RE ADA : READB : READC 
1680 E 1 =0 

1690 GDSUB2060: GOSUB 1700: GOTO 1820 
1700 FORI=P ( A) TOP (C) STEPB 
1710 C0L0UR5 

1720 M=PEEK< 17408+1) * PRINT0I > "♦" 

1730 FORJ 1=17025: NEXTJ 1 

1740 IF 11=230 THEN M=32s GOTO 1770 

1750 IF 11=235 THEN M=32: GOTO 1770 

1760 IF M=32 THEN M=230 

1770 IF 11=230 THEN C0L0UR5: GOTO 1790 

1780 COLOUR2 

1790 PRINT® I >CHR$<M) 

1800 NEXTI 
1810 RETURN 

1820 FORJ 1=1TÜ50: NEXTJ 1 
1830 PRINT0P (C) ? 

1840 NEXTJ 


nochei n 
N" • 
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1850 RUN400 
1860 F0RT1=4T05 
1870 F0RT2=1T07 

1880 PLAY ( 1 , TI , T2, 13) : PLAY (2, TI , 5, 13) 

1890 NEXTT2, T 1 

1900 PLAY ( 1 , 1,1,0) : PLAY (2, 1,1,0) 

1910 RETURN 

1920 S0UND6, 30: SOUND 7,7: SOUND 8, 16: SOUND 9, 16: SOUND 10, 16: SOUND 12,16 

: SOUND 13,0 

1930 PLAY (1,5, 5, 13) 

1940 F0RTT=1T05: NEXTTT 
1950 PLAY (1, 1, 1,0) 

1960 RETURN 

1970 PLAY (1,5, 7, 13) 

19B0 PLAY (2, 6, 1, 13) 

1990 PLAY (3, 6, 3, 13) 

2000 F0RTT=1T020: NEXTTT 

2010 PLAY ( 1 , 1, 1,0) : PLAY (2, 1,1,0) : PLAY <3. 1,1,0) 

2020 RETURN 

2030 F0RTA=2T06: PLAY < 1 , 5» TA, 13) : PLAY (2, 6, TA, 13) : NEXTTA 
2040 PLAY ( 1 , 1 , 1 , 0) : PLAY (2, 1 , 1 , 0) 

2050 RETURN 

2060 U 1 =RND ( 5 ) +3 : U2=U 1 - 1 : U3=U 1 -2 : FDRU4= 1 5TQ 1 STEP- 1 : PLAY ( 1 , U 1 , 2 , U4 ) : PL A 
Y (2, U2, 1 , U4) : PLAY (3, U3, 1 , U4) : F0R'U5=1TGB: NEXTU5, U4: PLAY ( 1 , 1,1,0) : PLAY (2 
,1,1,0) : PLAY (3, 1,1,0) : RETURN 
2070 PR I NT QP , CHR$ ( 1 48 ) ? CHR* ( 1 49 ) ? " «■” 

2080 PRINT0P+4O, CHRS (150) ? CHR$ ( 151 ) 

2090 PRINT@P+80, S PRINT@P+120, 

2100 PRINT0P+160, CHR$ ( 144) ?CHR*<145) 

21 10 PRINTHP+200» CHR$ ( 146) 5 CHR$ ( 147) 5 "W 
2120 RETURN 

2130 C0LDUR2: PRINTSP, ? CHR* ( 141 ) ? CHR* (142) 

2140 PRINT@P+42, CHR$ ( 1 40) ? CHR$ ( 1 43) 

2150 PRINT@P+B3, : PRINT0P+123, 

2160 PRINT@F'+162,CHR$(152) ;CHR$(153) 

2170 PRINTSP+200, "EBB" ; CHR$ ( 154) ? CHR$ ( 155) 

2180 RETURN 

2 1 90 C0LQUR5 : PR I NT@P , CHR$ (166)? CHR$ ( 1 67) 

2200 PRINT0P+4Q, CHR$ ( 168) ? CHR$ (169) 

2210 RETURN 

2220 DATAOOO, 000, 000, 000, 000,001 , 002, 004 
2230 DATAOOO , 000 , 000 , 000 ,126,129, 000 , 000 
2240 DATAOOO , 000 , 000 , 000 , 000 ,128, 064 , 032 
2250 DAT A004, 008, 008, 008, 008, 008,008, 004 
2260 DATA032, 016, 016, 01 6, 01 6, 01 6, 01 6, 032 
2270 DATA004, 002, 001 , 000,000, 000,000, 000 
2280 DATAOOO , 000 ,129,126, 000 , 000 , 000 , 000 
2290 DAT A032 , 064 , 128,000,000,000,000,000 
2300 DATA024 , 024 , 024 , 024 ,126,129, 000 , 000 
23 1 0 DAT A004 , 008 ,008,248, 248 , 008 , 008 , 004 
2320 DATA032, 016,016, 031 , 031 ,016, 016,032 
2330 DATAOOO , 000 ,129,126, 024 , 024 , 024 , 024 
2340 DAT A255, 063,015, 007, 003, 003, 001,001 
2350 DATA224 , 252 , 255 , 255 , 255 ,255, 255 , 255 
2360 DATAOOO , 000 , 000 ,192,224,240, 248 , 248 
2370 DATA252, 252, 254, 254, 254,255, 255,255 
2380 DAT A255 , 255 , 255 , 127,127, 127,063,063 
2390 DATAOOO, 000, 000, 128, 128, 192,224,248 
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2400 D AT A03 1,031,015, 007 , 003 , 000 , 000 , 000 
24 1 0 D AT A255 , 255 , 255 , 255 ,255, 255 , 063 , 007 
2420 DAT A000, 000, 000, 003, 007,015,031 , 031 
2430 DATA007 , 063, 255, 255, 255, 255, 255,255 
2440 D AT AÖ63 ,063,127,127,127, 255 , 255 , 255 
2450 D AT A24B ,224,192,128,128, 000 , 000 , 000 
2460 DATAOOO, 000,000, 001 , 001 , 003, 007,031 
2470 D AT A255 , 255 , 255 , 254 , 254 , 254 , 252 , 252 
2480 DATA255 , 255 , 255 , 255 , 255 , 255 , 252 , 224 
2490 D AT A248 , 248 , 240 , 224 ,192, 000 , 000 , 000 
2500 DATAOOO, 000,000, 001 , 003, 007,015, 031 
2510 DATA031 , 127,255, 143, 143,255,255,255 
2520 DATA03 1,063, 115, 196,008,017,035,068 
2530 DATA255, 255, 248, 224, 192, 128,000,000 
2540 DATA240, 000, 000,000, 000, 000, 000, 000 
2550 DATA252, 255, 255, 241, 241, 255, 255, 255 
2560 DATAOOO , 000 ,192, 224 , 240 , 248 , 248 , 252 
2570 DATA015, 000,000,000, 000,000, 000,000 
2580 DATA255, 127,031, 007, 003, 001 , 000,000 
2590 DAT A252 ,142, 066 , 033 ,144,136,196,098 
2600 DATA 193, 195,003,003,001,001, 113,255 
2610 DATA 131, 195, 192, 192,128, 128, 142,255 
2620 DATA255, 113,001,001,003,003, 195,193 
2630 DATA255, 142, 128, 128, 192, 192, 195, 131 
2640 DATA024, 024, 024, 060, 060, 060, 126, 126 
2650 DATA003, 014, 028, 060, 120, 120,248,248 
2660 DAT Al 92, 112,056,060,030,030,031,031 
2670 DATA068, 000,056, 004,060, 068, 060, 000 

2680 CHAR2: RESTÜRE: F0RA7,=S<HF400TDS<HF56F : READBXs PDKEA7., B%: NEXT: RETURN 

2690 DATA1, 5, 1,5,97,2, 100,2, 103,2,1,5,1,5 

2700 DATA1 , 5, 1,5,217,2,220,2,223,2, 1,5, 1,5 

2710 DATA331 , 2, 334,2, 337,2,340,2, 343,2,346, 2, 349,2 

2720 DATA451 , 2,454, 2, 457,2, 460, 1 , 463, 2, 466, 2, 469,2 

2730 DATA571 , 2, 574, 2, 577,2,580,2,583, 2, 586, 2, 589,2 

2740 DATA1 , 5, 1,5,697,2,700,2,703,2,1,5, 1,5 

2750 DAT A 1 , 5 , 1 , 5, 817, 2, 820, 2, 823, 2, 1 , 5, 1 , 5 

2760 DATA291 , 104,629,816,294,224,626,696 

2770 DATA57, 350, 863, 570,60, 470,860,450 

2780 DATA63, 590, 857, 330, 306, 704, 614,216 

2790 DATA309 , 824 ,611,96 

2300 DATA42, 244, 442, 644, 673, 475, 273, 75 

2810 DATA 124, 324, 524, 724, 755, 555, 355, 155 

2820 DATA42, 01 , 44, 63, -40, 43,51,01, 53 

2830 DATA31 ,40,51,43,40,63,73, -40, 53 

2840 DATA54, -1 , 52, 51,01, 53, 56, -1 , 54 

2850 DATA53, 01 , 55,74, -40,54, 54,01 , 56 

2860 DATA75, -40, 55, 56, -1 , 54, 36, 40, 56 

2870 DAT A57 , - 1 , 55 ,37,40,57,54,01, 56 

2880 DATA57 , -1 , 55, 34, 01 , 36, 55, -40, 35 

2890 DATA36, -1,34, 15,40,35,34,01,36 

2900 DATA32, 01, 34, 13,40,33,33,01,35 

2910 DATA14, 40, 34, 44,-40, 24, 36, -1 , 34 

2920 DAT A24 , 40 , 44 

2930 C0L0UR2! PRI NT@P, CHR$ ( 128) 3 CHR$ ( 136) 3 CHR$ ( 130) 

2940 PRINT@P+40, CHR$ ( 137) 3 " ";CHR$(138> 

2950 PRINT@P+80, CHR$ ( 133) 3 CHR$ ( 139) 3 CHR$ ( 135) 

2960 RETURN 

2970 FQRI=0TD50:PRINT@I*10, (128+1) 3 CHR$ ( 128+1 > : NEXTI 
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Walter Christ 

TEXEDIT 


Mit Texedit können Sie Texte bis 
zu einer Länge von 300 Zeilen ver- 
arbeiten. Es wird jedoch empfoh- 
len, längere Texte in mehrere ein- 
zelne Passagen zu gliedern, da bei 
längeren Texten durch die Garba- 
ge Collection kurze Eingabepausen 
entstehen können. Es handelt sich 
bei Texedit um ein Programm, daß 
aus mehreren Modulen besteht, 
die über ein Menue gesteuert wer- 
den. Diese Funktionen werden 
jetzt im einzelnen erklärt. 

Eröffnen einer neuen 
Textdatei 

Diese Funktion wird durch 'A' 
vom Hauptmenue aus angewählt. 
Nach drücken einer Taste wird der 
Bildschirm gelöscht und man kann 
mit der Eingabe beginnen. Es ste- 
hen dem Benutzer drei Modi zur 
Verfügung. Der Modus in dem Sie 
sich befinden steht in der letzten 
Zeile. Rechts unten wird außer- 
dem noch die Zeilennummer (z.B. 
L = 25) der letzten Bildschirmzei- 
le angegeben. Sie befinden sich 
jetzt im Schreibmodus und kön- 
nen beginnen Ihre Texte einzu- 
geben. 

Schreibmodus 

Durch drücken der Taste (Pfeil- 
nach links) können Sie den Cur- 
sor um eine Stelle zurück bewe- 
gen. Durch drücken der NEW' 
LINE (ENTER) Taste geht der 
Cursor auf den Anfang der näch- 
sten Textzeile. Durch drücken der 
Taste (Pfeil nach rechts) — min- 
destens drei Sekunden I — wird der 
Text in den Hauptspeicher ge- 
schrieben und verarbeitet. Danach 
kehrt das Programm zum Haupt- 
menue zurück, dieser Vorgang be- 
nötigt etwa zwei Sekunden. Durch 
drücken der Taste (Pfeil nach un- 
ten) kommen Sie in den Cursor- 
modus. 

Cursormodus 

Sie können jetzt mit den vier Pfeil- 
tasten den Cursor über den Bild- 
schirm bewegen. Durch drücken 
der 'Z' Taste kommen Sie in den 
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Schreibmodus zurück. Hierbei 
geht der Cursor wieder auf seine 
alte Position. 

Durch drücken der (Print At) Ta- 
ste kommen Sie in den Editmo- 
dus. 

Editmodus 

Der Cursor bleibt auf der selben 
Stelle wie im Cursormodus. Jetzt 
können Sie den alten Text einfach 
überschreiben. (Pfeil nach links) 
bewegt den Cursor eine Stelle zu- 
rück. Shift und (Pfeil nach rechts) 
bewegt den Rest der Zeile um eine 
Stelle nach rechts. Shift und (Pfeil 
nach links) bewegt den Rest der 
Zeile um eine Stelle nach links. 
Hierbei wird jeweils ein Zeichen 
zerstört. (Pfeil nach rechts) be- 
wirkt einen Rücksprung in den 
Schreibmodus. Der Cursor springt 
wieder auf seine alte Stelle. 

(Print At) bewirkt einen Rück- 
sprung in den Cursormodus. Auch 
hier geht der Cursor wieder an sei- 
ne alte Stelle. Der Text kann nur 
aus dem Schreibmodus an den 
Hauptspeicher übergeben werden. 

Umlaute können folgendermas- 
sen angewählt werden: Zuerst 
drücken Sie die Clear laste und 
danach den entsprechenden Buch- 
staben (a,u,o,s,A,U,0). Auf dem 
Bildschirm wird dann der ent- 
sprechende Umlaut dargestellt. 
Zur Steuerung von Schriftarten, 
Leerzeichen und Drucker stehen 
noch vier weitere Steuerzeichen 
zur Verfügung. 

Steuerung der Schriftarten 
Jede Textzeile, der kein Steuer- 
zeichen voransteht, wird in Nor- 
malschrift ausgegeben. Soll eine 
Textzeile in Breitschrift ausgege- 
ben werden, so ist ihr ein (Print 
At) voranzustellen. Hierbei ist zu 
beachten, daß bei Texten, die in 
64 Zeichen pro Zeile ausgedruckt 
werden sollen, nur die nächsten 
32 Zeichen beachtet werden (bei 
80 Zeichen pro Zeile nur 40 Zei- 
chen). Die restlichen Zeichen wer- 
den nicht verarbeitet. Um eine 


Zeile in Proportionalschrift auszu- 
drucken ist ihr ein (Pfeil nach 
oben) voran zu setzen. Beachten 
Sie, daß bei Proportionalschrift 
ein kleinerer Zeilenvorschub statt- 
findet. Achtung: Diese Steuerzei- 
chen gelten nur für eine Textzei- 
le. Wird an den Anfang einer Text- 
zeile ein Shift und (Pfeil nach un- 
ten) gesetzt, so hält der Drucker 
hier an und gibt Ihnen die Mög- 
lichkeit, den nächsten Blattanfang 
zu positionieren. 

Für Texte die auf 80 Zeichen pro 
Zeile formatiert werden sollen, 
steht noch ein weiteres Steuer- 
zeichen zur Verfügung: Shift und 
(Pfeil nach oben). 

Steht dieses Zeichen am Anfang 
einer Zeile, so wird in den Text 
nach dem formatieren eine Leer- 
zeile eingefügt. Dieses Zeichen an 
das Ende eines Satzes gesetzt, be- 
wirkt, daß hier nach dem 
formatieren die Zeile zu Ende ist. 

Um in den Text später be- 
stimmte Daten einzufügen, kön- 
nen diese Stellen mit Shift und 
(Print At) markiert werden. Näh- 
here Angaben hierzu finden Sie 
unter 'Dateneingabe in Texte'. 

Einlesen eines Textfiles 
von der Diskette 

Wird durch 'C' vom Hauptmenue 
aus angewählt. Auf "Filename?" 
ist der Name der gewünschten 
Textdatei einzugeben. Handelt es 
sich um eine auf 80 Zeichen pro 
Zeile formatierte Textdatei, so ist 
der Zusatz /FOR mit anzugeben. 

Hat man aus Versehen dieses 
Modul gewählt, so kann man 
durch Eingabe von '0' wieder zum 
Hauptmenue zurückkehren. 

Soll der Text zu einer bereits 
im Speicher vorhandenen Textda- 
tei hinzugeladen werden, so kann 
man dem Filenamen ein vor- 
anstellen, ansonsten wird der im 
Speicher vorhandene Text ge- 
löscht. Ist die gewünschte Datei 
nicht auf der Diskette vorhanden, 
wird 'File nicht im Directory' 
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ausgegeben und eine neue Eingabe 
erwartet. Ist der Text fertig einge- 
laden, so kann der Benutzer'durch 
drücken einer Taste wieder in das 
Hauptmenue zurückkehren. 
Achtung: Die Diskette muß im 
Laufwerk liegen, sobald der File- 
name eingegeben wurde! 

Abspeicherung auf Diskette 
Wird durch 'B' vom Hauptmenue 
aus angewählt. Zuerst testet das 
Programm, ob der noch auf der 
Diskette zur Verfügung stehende 
Speicherplatz ausreicht. Falls dies 
nicht der Fall ist, wird der Benut- 
zer zum Diskettenwechsel aufge- 
fordert. Hierrauf wird nach dem 
Filename der Datei gefragt. Ist ei- 
ne Datei unter dem selben Namen 
bereits vorhanden, wird diese 
selbstständig gelöscht. Der File- 
name muß mindestens zwei, höch- 
stens aber acht Zeichen lang sein. 
Sollte man aus Versehen dieses 
Modul angewählt haben, so kann 
man durch Eingabe von '0' wieder 
zum Hauptmenue zurückkehren. 
Ist die Textdatei komplett abge- 
speichert, so kehrt das Programm 
selbstständig zum Hauptmenue zu- 
rück. Die Anzahl der Zeilen, so- 
wie der benötigte Speicherplatz 
wird ebenfalls angezeigt. 

Achtung: Bevor das Modul vom 
Hauptmenue aus gestartet wird, 
muß eine Diskette im Laufwerk 
liegen. 

Erweitern einer Textdatei 

Wird durch 'D' vom Hauptmenue 
aus angewählt. Es wird die jeweils 
im Speicher stehende Textdatei 
verwendet. Sie muß vorher in den 
Speicher geladen werden. Nach 
dem Drücken einer Taste wird die 
jeweilige Textdatei auf dem Bild- 
schirm gelistet (nur die letzten 
15 Zeilen!). Texte die formatiert 
werden sollen, sind in Ihrer un- 
formatierten Version zu laden, 
und dann insgesamt zu formatie- 
ren. Die Texte können dann wie 
bei 'Eröffnen einer neuen Text- 
datei' weitergeschrieben werden. 

Directory 

Wird durch 'E' vom Hauptmenue 
aus angewählt. Es werden alle 
auf der Diskette vorhandenen 
Textdateien gelistet. Bei Datei- 
en mit dem Zusatz /FOR handelt 
es sich um bereits auf 80 Zeichen 


pro Zeile formatierte Texte. Dem 
Anwender stehen folgende Mög- 
lichkeiten zur Verfügung: 

1. Rücksprung zum Hauptmenue. 

2. Löschen einer Datei. Es er- 
scheint 'Filename', hierauf ist der 
gewünschte Dateiname einzuge- 
ben. Diese Datei wird dann von 
der Diskette gelöscht und das Di- 
rectory wird neu gelistet. Wurde 
aus Versehen 2 gewählt, so kann 
man durch die Eingabe von '0' 
wieder ins Menue zurückspringen. 

3. Ausgabe der Directory auf den 
Drucker. - Achtung: Drucker 
muß eingeschaltet sein! — Die 
Directory wird in ausführlicher 
Weise auf den Drucker ausgege- 
ben, einschliesslich Anzahl der be- 
nötigten Granulen etc.) 

Achtung. Bei Start des Directory- 
Moduls muß die Diskette im Lauf- 
werk liegen ! 

Textformatierung 
Wird durch 'F' vom Hauptmenue 
aus angewählt. Der jeweilige im 
Speicher stehende Text wird von 
64 auf 80 Zeichen pro Zeile for- 
matiert. Alte und neue Zeilen- 
nummern werden auf dem Bild- 
schirm dargestellt. 

Beachten Sie bitte: Sollen Leer- 
zeilen von dem Quelltext in den 
formatierten Text übernommen 
werden, so sind diese mit (Pfeil 
nach oben) zu versehen. Näheres 
siehe unter 'Eröffnen einer Text- 
datei'. 

Listen eines Textes 

Wird durch 'G' vom Hauptmenue 
aus angewählt. Es wird der sich im 
Speicher befindliche Text gelistet. 
Pro Tastendruck wird jeweils eine 
weitere Zeile gelistet. Autorepeat 
ist hierbei möglich. Bei bereitsauf 
80 Zeichen pro Zeile formatier- 
ten Texten benötigt jede Textzei- 
le zwei Bildschirmzeilen (sofern 
keine Leerzeilen). Die zweite Zei- 
le wird hierbei nur zu einem Drit- 
tel benutzt. Das Listen kann durch 
drücken der '0' Taste abgebrochen 
werden, das Programm springt 
dann wieder in das Hauptmenue. 
Nach dem Listen des gesamten 
Textes erscheint die Meldung 
'Textende' und 'Taste drücken', 
hierdurch kehrt man wieder in das 
Hauptmenue zurück. 

Druckerausgabe 


Wird durch 'H' vom Hauptmenue 
aus angewählt. Der im Speicher 
befindliche Text wird auf dem 
Drucker ausgegeben. Geben Sie 
jetzt den Randabstand links ein (0 
bis 16 Zeichen möglich). Jetzt 
wird erfragt, ob der deutsche Zei- 
chensatz verwendet wurde. Eine 
Druckerausgabe mit deutschem 
Zeichensatz dauert länger, da die 
Umlaute erst für den Drucker um- 
gerechnet werden müssen, denn sie 
sind nicht im ASCII-Code ent- 
halten. Danach können Sie einge- 
ben, wieviele Kopien Sie haben 
möchten. Gibt man hier eine '0' 
ein, so kehrt das Programm zum 
Hauptmenue zurück. 

Systemmenue 

Wird durch T vom Hauptmenue 
aus angewählt. Diese Funktion ist 
für zukünftige Erweiterungen vor- 
gesehen und bewirkt im Moment 
noch gar nichts. 

Dateneingabe in Texte 
Wird durch 'J' vom Hauptmenue 
aus angewählt. Mit diesem Modul 
ist es möglich, Standardtexte zu 
verfassen. Beim Schreiben von 
Texten können in Textstellen 
Shift und (Print At) Zeichen ein- 
gefügt werden. Und zwar so viele 
hintereinander, wie die maximale 
Eingabe betragen kann. Ist ein 
Text auf diese Art und Weise ge- 
schrieben, (z. B. Serienbrief, in 
dem nur Name und Datum einge- 
setzt werden müssen) so speichert 
man diesen zuerst ab. Nun kann 
man durch anwählen von 'J' 
Daten in den Text eingeben. 
Das Modul durchsucht nun den 
Text nach solchen Stellen. Auf 
dem Bildschirm erscheint 'Bitte 
warten’. Nach dem die erste Stel- 
le gefunden wurde, erscheint diese 
auf dem Bildschirm sowie eine 
Eingabezeile unten auf dem Bild- 
schirm, Nachdem die Eingabe ab- 
geschlossen wurde, setzt der Com- 
puter diese in den Text. Es wird 
jetzt abgefragt, ob die Eingabe 
korrekt war, und falls ja, weiter- 
gemacht. 

Editor 

Wird durch 'K' vom Hauptmenue 
aus angewählt. Der Editor dient 
zur Überarbeitung von Texten. 
Er ähnelt in seiner Arbeitsweise 
dem Screen-Editor bei der Ein- 
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gäbe von Texten, nur das es kei- (Pfeil nach links) bewegt den Cur- 
nen 'Schreibmodus' gibt. sor eine Stelle zurück. (Pfeil nach 

Der Text erscheint auf dem rechts) bewirkt einen Rücksprung 
Bildschirm (die ersten 15 Zeilen) j n den Cursormodus. Shift und 
sowie ein Cursor links oben. Sie (Rechtspfeil) oder (Linkspfeil): 
befinden sich jetzt in dem 'Cur- Schiebt den Rest der Zeile nach 
sormodus'. Sie haben nun folgen- rec hts bzw. nach links, 
de Möglichkeiten: Druckeranpassungen 

Die vier Pfeiltasten bewegen den Texedit ist in dieser Version lauf- 
Cursor über den Bildschirm. Durch fähig mit einem Seikosha GP80/ 
drücken von: 100 Drucker. Mit folgenden An- 

T wird eine Leerzeile eingefügt, gaben sollten Sie das Programm 
'K' wird eine Zeile gestrichen. aber auch an andere Drucker 
(Jeweils die Zeile, in der sich anpassen können, 
der Cursor befindet.) Die Druckerausgabe befindet sich 

'Print At' in den Zeilen 8000 bis 8320. Es 

Übergang in den Eingabe/ lassen sich vom Text aus drei ver- 
Editor-Modus. schiedene Schriftarten steuern. 

'Z' Text wird eine Zeile nach Normalschrift 

oben geschoben. Änderungen Dies sollte eine Schriftart sein, die 
in der obersten Zeile wer- 80 Zeichen pro Zeile druckt. Sie 
den nicht angenommen. wird in Zeile 8064 angewählt. 
'ENTER' Hier muß CHR$(15) durch den je- 

wie 'Z', nur werden Ände- weiligen Steuercode ersetzt wer- 

rungen angenommen. den. 

'E' Text ist fertig überarbeitet. Breitschrift 

Zurück zum Hauptmenue. Dies sollte eine Schriftart sein, 
Dieser Vorgang dauert etwa die 40 Zeichen pro Zeile druckt. 
10 Sekunden und wird in der Sie wird in Zeile 8062 angewählt, 
letzten Zeile angezeigt. Hier muß CHRS04) durch den je- 

Eingabe/Editor-Modus weiligen Steuercode ersetzt wer- 

Sie können nun Eingaben in den den. 

Text machen. Ausserdem stehen Proportionalschrift 

noch folgende Tastenfunktionen Hierfür kann eine beliebige andere 
zur Verfügung : Schriftart eingesetzt werden. Der 


5 CLS 

20 PRINT" T E X E E 1 7 2.2" 

12 PRINT " 1 9 8 3 v o r> 

23 PRINT " N. Christ Saft-Mare" 

25 EORX-l T 05Ö0 : NEX TX 

200 ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

110 ' TEXEDIT 2.1 

220 ' (C) 22/1983 

130 'HALTER CHRIST 

1 10 '8758 GO LEE PC H 

. I ') O ’ X X X X X X X * X X X X X X X X X X X X X X X X X X XX X 

800 OLE PR 20000 ' 

HIER NOCH HERR UEGB PR E SPE 1 CHE RGROESSE EINSTELLEN 
820 DER INT P-Z 
900 niMXf(300) ' 

HIER MAXIMALE ZEILENZAHL EINGEBEN' 

920 ONERRORGO T012000 
920 </£■=■£? TR1NG JS (' 80 . " > 

950 SOSUB2900 

2000 ' XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX* 

2010 ’ S TORT MENU E 

2020 ' x*#xxxxxxxxx*xxxx.xxxxxxxxx*x#x~x*xx 
2022 Q*- INKEY* 


Einsprung befindet sich in Zeile 
8063. Da in der Originalversion 
hier in ein Unterprogramm ge- 
sprungen wird, ist folgendes zu 
beachten : 

Es kann der jeweilige Druckercode 
anstatt 'GOSUB 8500' eingesetzt 
werden oder 

es kann ein Unterprogramm ab 
Zeile 8500 geschrieben werden, 
das mit RETURN abgeschlossen 
werden muß. Die Randeinstellung 
muß ebenfalls mitprogrammiert 
werden ! 

Umlaute 

Da beim Seikosha GP 80/100 die 
Umlaute nicht die selben Codes 
haben wie im Rechner, müssen 
diese vordem Druck umgewandelt 
werden. Das Programm fragt des- 
halb in Zeile 8027 ob der deutsche 
Zeichensatz verwendet wurde. Das 
hierzu verwendete Unterpro- 
gramm steht in Zeile 8300 bis 
8320. Liegen bei Ihrem Drucker 
die Codes wie beim Rechner, dann 
geben Sie bei 'Deutscher Zeichen- 
satz verwendet?' nein ein, und 
können trotzdem die Umlaute ver- 
wenden. Ist dies nicht der Fall, 
können Sie in Zeile 8310 die je- 
weiligen Codes an Ihren Drucker 
anpassen. 
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1025 CLS 

102$ PRINT "7 £ X £ V S T 0 ERST 0 

N 2 . 1" - 

1029 PRINT" 


1030 PRINT'BI TTE MAEHLEN SIE : " 


1040 PRINT 

1050 PRINT" A EROEEFNEN EINER NEUEN TEXTDATEI 

1060 PRINT" 7} /ABSPEICHERUNG /AUE DISKETTE 

1070 PRINT" C EINLESEN EINES TEXTFILES VON DISKETTE 

1075 PRINT" D ERNEUERN EINER TEX /DATEI" 

1000 PP.1NT" E TEX ED IT- DIRECT OR V 

1090 PRINT" E - - TEX T FORM/A T1ERUN&" 

1110 PRINT" G LISTEN EINES TEXTES 

1120 PRINT" H DRUCK ER/AUSG/ABE" 

1130 PRINT" 1 S'/STEM-MENUE" 

1140 PRINT" 3 D/ATE NET NG/ABE IN TEXTE" 

1150 PRINT " K EDITOR"; 


1200 AB-INKE VT : IE /AB-"" THEN1200 

120 5 I F DSC (AB) > 9 5 THE NAB-CHRB ( DSC < /A B ) - 32 ) 

1206 IE/ASC ((AB X 650 R RS C (/AB > >75 THEN1200 

1210 ONRSCCR B ) - 64G0T 02000 . 4200, 4500, 13000.6000,10500,7200,8000,10 
, 5000, 14000 

2000 •' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


2010 ■’ TEXT EINGABE 

2020 ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

2025 CLS 

2030 PRINT "T EX 7EINGR B E " : PR INT" 

~ ; Pft . th r ; PRINT "BEGINN DER £ 

INGABE ’ TASTE DRUECKEN 

2110 AB-INKE VB 1 1 EPE EN. ( 1 4591 .>•-<> THEN2110 

2120 CLS“. PP. IN T% 96 0 , 

"SE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TS-E TSE TSE TSE TSE TS 
E TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE T 
SETSET L = 15 SE TSE TSE TSE TSE TSE TSE TSE TSE TSE 7" ; 

2121 PRINT?. 9 64 . > SCHREIBMODUS <--»■ 

2122 FQR0-0T0220: X £ (0)=" " : NEX TQ 
2125 QJ*0 

2130 X- 15360 

2195 POKEX , 131 

2196 AB-INKE V B 

2200 ■' x A* XX XXX * * xxx x x XXXXXXX xx x 

2201 ' EINGABE 

2 2 0 2 ’ x x x x x x x x x x x x x x x x x x * x x •# x x 
2210 AB-1NKEVB:1FAB-"" TH EN 22 10 

2215 IF ASC ( AB ) =$ANDX > 1 5360 7HENX=X-1: PO KE X, 131: POKEX + 1 . 32 : PO KE X+2 . 
32: GOT 022 10 


2220 

2230 


IF ASC ( AB X320RASC ( AB )=9 10RASC ( AB )-96THEN2500 

POKEX , ASC (AB > : POKEX+1 , 131 : X-X+l : 1EX>16S1B THENGOSUB2800S X-X- 


: GO T022 10EL SE 22 1 0 


1 


2500 ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
2510 ’ AENDERUNGEN IM SCHREIBMODUS 

2520 ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


2521 IE ASC (AB >-91 7 H EM/AB-C H RB (153 > i GO T02230 

2522 1 F ASC ( AB ) =27 THE NAB-CHRB ( 94) : G0T02230 

2523 IE/ASC (AB > -26 THEN/AB-CHRB ( 127 ) : GO T 02230 

2524 IF ASC ( AB )-96 TH ENA B-CHR B( 192): GO TO 223 0 

2525 IF ASC (AB >~31 THENGOSUB2600 i GO T 02230 

2526 POKEX, 3 2 

2530 IF ASC (/AB ) -23 THEN2700 
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2540 IE RSC ( RF >= 20 TUEN 3 000 

2 550 I F PF. £ R ( 2 4 40 0 > = 6 4 T H £ N 3 8 0 0 £ L S £2 2 1 0 

2600 R»=1NR£YF ■■ IERF="" TH EH 2600 

2605' IFRSC (RF > =31 TH EN 2600 

2610 IFRSC(RF > =65 THE NR f-CHR F ( 91 > 

2620 IFßSC (RF .> - 7 9 T H E N R $ - CH RF ( 92 > 

2630 IFRSC ( RF )=85THENRF=CHRF( 93) 

2640 IFßSC (RF >.«97 1 HENRF=CHRF U 23' > 

26 45 I FRSC ( RF > = 2 2 2 THE NRF=CHRF( 2 2 4 > 

2650 IFßSCfß* ) ~ ./ 1 7 T H E N ß $ ■■■ C H R F (225 > 

2660 IFßSC (RF >~ 2 2 57 HENRF=CHRF C226> 

2670 RETURN 

2700 > NEN-LINE TOSTE ZE ILENOORSCHUB 
2702 ■" 

2 7 1 0 7, = (' I N T(( X - 1 5 3 6 0 > / 6 4 >t 1 > *6 4+ 2 536 0 
2720 IE X > 2631 9 6 0 SUB 2800 
2730 P 0 K E 7. ,131’ & O T 0 221 0 
2800 T ####*####*##*##*################*## 

2810 ' BILDSCHIRM NOCH OBEN SCHIEßEN 
2 8 2 0 " * * * x x 
2825 XF(Q2 >="" 

2830 T=URRP TR (UF>i ROHE T , 64 '.PORE 7> 1 . 0 s PO HE T+2 , &H3C i 7 F ( Q 1 >=<! F 
2835 I FQ72.80 T HENPRIN T‘'SPE I CHER VOLL" ■ GOT 04020 

28 40 Q 2=02 + 21 GO SUB 2 920 : 3 = 26256 s PO HE 7 , 2 3 1 ■ PR 2 H 7§ 100 9 , Q 1 + 1 5 ; " " - s RE 
TURN , Jf.., ; 

2 900 0 7. =0 : 11 1 MQA 7. ( 22 ) ■ 00 7. ( 0 > = 2 536 : 00 7. ( 2 ) =0 : GA 7.(2) = 1 5872 - OA 7.(3) - 1 4 - 
ORZ ( 4 > =33 i ORZ (' 5 > = 4352 tOß'X ( 6 > =64 : ORZ ( 7 > -- - 2 4 960 ■ Q R Z ( Ei > =6 47 1 : ORZ ( 9 > - 
- 7 52 : GR 7.(20 ) =-6 7 1 9 süß 7. ( 2 2 ) =- 1 6 3 5 1:QA 7. ( 1 2 > = 1083 

2910 ORZ (13 > = 4221 s ORZ( 14 >=-6659: ORZ (1 5)=- 1 2007 : ORZ U6>=-4671 s ORZ < 
17)=- 5200 : Qß 7. ( 2 8 ) =8226 i QR 7. ( 29 > = 25 936 s ORZ ( 20 ) =- 13026 s ORZ < 2 2 ) = 51 s OR 
Z( 22) =201 i RETURN 

2920 VEE USR-URRP TR(GR7. (0) > s Q7.=USR ( 0 >s RE TURN 
3000 ' 

3020 -TEXT ElU TIEREN 

3 020 ■' A‘ ■» # A‘ A‘ A‘ A‘ -A‘ A‘ -4 A ‘ # A< A‘ ^ A‘ A‘ # A‘ A‘ ■# ■# # # •.»,* * # ■* # -V A‘ A‘ 

3025 PR 2 NT% 96 4 , " - - > CURSORMOÜUS - SE TSE TSE T" ; 

3030 LL=7, 

3070 1 F RE EH ( 14 400 ) =32RNUX >1 5360THENX=X- 2 

3071 IE PEER ( 14400 )=64RN'D7< 1 63 19 THENZ=)y+ 1 

3072 I E RE EH ( 1 4 400 ) = 26RNDX< 263 2 9- 6 4 THE NX =X+6 4 

3073 I F PEER ( 2 4400 )=8RNBX >153 59+64 THE NX=X- 64 

3074 I E PE£H ( 2 43 4 4 ) = 47 HENPOHEE , I : X=LLi POHEX , 2 3 2 PR 1 N7%964 . " - - > SCH 
RE IBM OBUS <—■ SETSE T" : : FÜR XX =2 T03Ö0 : NE X T J R*=INRE VF : GO 7022 10 

3075 IEPE£H( 14337 >=2 THE N3 300 
3080 ROHE E , I 

3090 I=PEEH( X > ' E=X 
3200 POREN „ 279 
3220 GOTO 3070 

3 3 0 0 ' A‘ A‘ A‘ A‘ -A‘ -A‘ A‘ A‘ A‘ A‘ A* ■# -A‘ A‘ A‘ #-*■ -A‘ A‘ A‘ A‘ -A‘ 

3301 v TEX TREND ERN 

3302 •' A l -A 1 A‘ A‘ A‘ -A‘ A‘ A‘ # A‘ -A‘ A‘ * A‘ A‘ A‘ A‘ * A‘ -A £ A 1 ^ A‘ 

3305 PRIN7§964 ED1TM0D/JS <- - SETSETSET" r 

3310 R*=INREYF 
3317 POHEX, 29 2 

3320 RF=1 NRE Y$ : IER*="" THEN3320 

3324 IERSC (RH) =92 THENR*=CHRt( 253) 

3325 IFßSC ( RF >=96 THENRF=CHRF (2 92 .> 

3326 I F RSC ( RF >=31 THENG0SUB2600 
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3330 IFASC ( AF ) =25TNENG0S(JB35O0r. GOT03317 

33 4 0 7. F ASC < At > =2 4 THENG0SUB3 600 s GO TOS 3 17 

3342 TF ASC < A$ >=8 THENPOKEX . I : X=X-1 ■ I=PEEK(X > : GO TOS 3 17 

33 43 IFASC(AF)= 9 TUE HP OK EX ,7.:X=LL: PO KE X, 131: PP, 1NT% 96 4 — > SCH RE 1 B 

MODUS " : : FORY=l T0300 1 NEX T : AF=INKE VF : 60 T 022 10 

3344 1FASC (AF )=27THENAF=CHRF ( 94) 

3345 POKEX , I 

3350 IFA$-“%" T H EN P R IN T %9 6 4 . > EDITMODUS <--SE TSE TSE 7" : : G0T03090 

3370 POKEX , OSC (AF) : X=X+1 : I-PEEK (X ) : GO T03327 

3 500 •' *xxxxxxxxxxx*xxx#x*xxxxx 

3502 ’ ZEILE NOCH RECHTS 

3502 ' xxxxxxxxxxxxxxxxxxxxxxxx 

3510 Z-INT < ( <X-15360>/64>+l>*64+25359 

3520 T.FZ-X T HEHRE TURN 

3 530 F OP, Y*Z TOX +2S 7 EP - 2 : POKE Y , PEE K (V-l > 

3540 HEX T V : POKEX+1 , 32 - P,E TURN 

3600 •' ■»#■#######■#######■»####■*## 

3601 r ZEILE HOCH LINKS 

3 60 2 ■’ -x X X ■# X X X X X -X X X X X X -A‘ X X ■# X X X X X 

3 6 1 0 Z-INT ( <<X- 15 360 ) / 6 4 ) *■ 1 ) *6 4 4 1 53 5 9 

3620 I FZ~X TN EN RE TURN 

3630 F OR Z-X + 1 TOZ- 1 t POKE V , PE £ K ( Z+l ) 

3640 NEX T Y : POKEZ , 32- RE TURN 
3000 F ORZ -1 TO 90 

3810 TFPEEK ( 14400)064 THEN2210 
3820 NE X T Y : GO TO 4000 

4 0 0 0 ■’ # x X X X * X X X XX X X X X X X X X X X X X X X X X X X X • X X X X 

4010 OBSPEICHERN DES TEXTES 
4 O 2 0 ' a> x x x x x x x a* x x x x x x x x x x x x x x x x x x x x x x x x x 

4022 PRlNT%964,"—> TEST HIRD ABGESPEICHERT 

4023 0=01 . 

4025 0=0 

4030 Y=25360->\ F(Q>="" 

4040 7 =0 ARP TR< 0$ ) ’ POKE 7.64“ T7= 1 N T ( Y / 2 56 ) s 7 Z=Z- 7 7*2 56- POKE 7> 1 , T V • P 
OKE T+2 .TT: X F ( Q > ~C)F 

4050 1F X>V7HENV =Y+64 : 0=0+2 s GOTO 40 40 

4055 CLS 

4056 IF X= 1 5 3 6 0 0 R X - 0 THENO=- 2 
4060 PRINTQxl;" TEXTZEILEN" 

4065 F OR V= 17 03 0 0 - HEXT Y 
4070 GOT 01000 

4200 ’ #***##**#####■*#*#*#•»■##***■*#*****#* 

4210 'AUSGABE AUF DISKETTE 

4220 ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx* 

4221 B=0 

4222 CLS 

4223 CM7J" FREE " 

422 4 Ff=CHR*( PE £ K ( 1 5 477 ) ) +CHR* ( PE E K ( 1 5478 ) ) s F =VRL ( F * ) CLS 

4225 PRINT" A S S P £ I C H E R U N G A U F D I S K " : PRINT"- 


PRINT 

4227 PRINT2238 r F GRANULEN FREI": 1FF< (.<2/1 5) THENPRI N7Q384 . "TEXT P 
ASST NICHT MEHR AUF BISMET T E" : PRINT" LEGEN SIE NEUE DISKETTE EIN"* 
PRINT" NENN FERTIG TASTE DRUEC KEN" ELSE 4230 

4228 A*=INKE VF : IFA**"" THEN4228 

4229 CLS“ GO TO 4 200 

4230 1NPÜT"F ILENAME ?"\:DF 

4233 2FB* = "0" TUEN 1000 

4234 IE LEN (BF ><2 THENCL S : GOT 04 22 5 

423 5 IF LEN ( XF ( 0 ) ) =80 THE NB F=Bf4"/F OR " '■ L =80E L SE L =6 4 
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4236 KILL Bt 

4240 OP EH " R" . 1 , Bt 

4245 >\ "■ >\$ < a+2 " 

4250 F ORZ- OT 0 OST EPS 

42 52 B=B*L EN(Xt(Z> > * LEN( X tCZ+2 > )*LEN < X i t<Z*S>) 

4253 X F L=64T HEN FIELT) 1, 64 RS Dt ,64 RS Et . 64 RS F*£LSE FIF.LO 1 
,80 RS V t,80 RS Et, 80 RS Ft 

4255 LSE T Bt=Xt(Z>-. LSE TEt=Xt <2*3 >tLSE TFt=X*(Z+2 > 

4260 PUT t 

4261 PR2NT%446,Z+3;" .TEXTZEILE BEREITS RBGESPEICHERT" : HEXT 

4263 CLOSE 

4264 PR 1 NT i PRINTE; " BYTES" 

4265 PRINT% 70 4 ."TEXT KOMPLETT RBGESPEICHERT " 

4266 F OR Y=1 T0800 iNEXTYs GO TO 2000 

4500 ' #xxxx-x‘xxxxx*, i x#xxxxxxx#xxx#xxxxxx 
4520 y £ IHLESEH VON ORTEN WON DISKETTE 

4520 ’ x X X X X X -X X X X X X X X X X X X X X X X X X X X X X X X X X 

4522 CLS 

4525 PRINT" L £ S E H EINES TEXTFILES WON 0 
I S K": PRINT" 


4 526 B-0 : PO KE StH 4 2 80 , &H26 tPOKE &H 4181, SH 6 2 
4530 IMPUT" FILENAME JB.f 

4532 1 F B t - "0" TUEN 1 000 

4533 IFRIGH T t (Bt , 4>-"/F0R" TNENL~80ELSEL~64 

4535 1F LEF T t ( Bt ,1 ) = "*" T HENI L=ü‘-Bt=RI GHT t (Bt , LEN (Bt ) - 2 ) i OPEN" R" , 1 , 
Bt : GO T04 55ÖELSE I L-0 : FORCU-O TOQ : Xt (Ql : HEX TQ1 

4540 OPEN" R" , 2 , Bt 
4550 Q-LOF < 1 > 

4555 0=0*3- 1 

4560 FORX=Ö+IL TOQ* ILSTERS 

4562 1F L=64T HENF IELO 1 ,64 RS Dt, 64 RS Et, 64 RS FtELSEF IELD2 ,80 RS 
Dt, 00 RS Et, 80 RSEt 
4564 GET 1 

4 570 X t < X > =D t'-Xt(X+2) =Et :Xt(X*2)=Ft 

4586 PFUI4 Yi)3 20 , X*3 . TEXTZEILE BEREITS EINGELESEN" 

4 587 S=B*L EN(Xt(X> )*LEN ( Xt ( X* 2 ) )*LEN ( Xt ( X+2 ) ) 

4590 NEXTX 

4600 CLOSEiPRINTiPRINT"TEXT KOMPLETT EINGELESEN" 

4605 PRINT ■■ PRINTB.: " BYTES" 

4620 0=X i PRINT t PRINT" ME 1 TB R i TASTE DRUECKEN" 

4620 Rt=I NKE Vt : I FAT ~ " " THEN4620 

462 5 P0KE&H4 280 , &H5D - PGKE&H4 282 , &H6A 

4630 GOTO 1000 

5000 ■' xx*x*x*x*x* x*******x***x*x*x*x*x* 

5010 ■' M EITERWER R R BE I TUN G WON ST RN7JRRT EXTEN 
5020 ' x**x*xxx*xxx*x*x*x*x***x***x*x*x* 

5030 CLS . y ' 

5040 PRINT" E I N G R B £ WON DATEN IN DEN T E 
X T" i PRINTST RINGT (64 > 

5050 PR1NTS322 BITTE HARTEN 
5100 FOR Y=0 TOQ 
5220 FORZ= 17064 

5220 IF MI Dt ( Xt(Y),Z, 2) =CHR t ( 1 9 2 > THE NG0SUB550Ü 
5130 NEXTZ i NEX T V 

5240 PR1NT5900, "EINGABE BEENDET - TASTE DRUECKEN » 

5250 Rt= INK E Vt : I F Rt=" " THEN51 50ELSE 2000 
5500 ' ***x***xxxxx*x*x*x*xx***x**x*xx**x*x 
5520 ’ EINGABEUNTERROUTINE 

5 520 ' ** xxxxxxxxx*#x*x#'xxx*x***x***xxxxxx 
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5530 F0RI~ZT064: IFMID*(X*< V> , 7. , 1 > ~£HR* < 1 9 1 > 7HEH HEXT! 

5540 L-l-Z 
5545 PR1NT%320," 

5550 IE y>3 THENPR IN TS256 ,X$< V- 4 > ■ 

5560 1 F Y>2 THENPP.INT%320 ,X*(Z-3 ) ; 

5570 IE Y>1 Y /JENER I NT % 3 34, X* <' Z-.2) ; 

5500 IF V>0 THENPP.INT%448, X * ( V- 2 ) ; 

5590 PR2NT9522 . X* <'/>.: 

5600 PRINTS 576, STRING* <64 , 140) 

56 10 PR IN 75640 ,X$( Y+l > ; 

5620 PR2NT% 900 , S TR I NG *<L, " .> * " 

" ; 

5630 RRl'N7ii899, " 

5640 LINE 7.NPUTA* 

5650 IFLEN (9*>>L TH EN 5620 

5660 A*=LEFT*(X*(Z > ,Z-1)+A* +R 1 GH T *< X* < Z ) ,65- I )+ST RI. NG* ( L- L E N ( .9 * ) , 

ff ft \ 

5670 PRINT* 51 2, 9*; 

5680 PRINTS 900, "El NG9BE KORREKT ? ( J/N > 

ff 

5690 IFPEEK ( I 4338 ) = 4THE NX * ( Z ) =9* - PRINTS900 , > BITTE HARTEN <-- 

" ; : RE TURN EL SE .IFPEEK < .1 43381 ~6 4 TH EN 5 

560EL3E5690 
5900 ' 

6000 ’ DIRECTORY 

6001 ■' 

6005 CLS 

6010 CMD"D2R 0" s PRINT SO , " T E X E D 1 T DIRECT 0 R Z 

ff 

6011 PRINTS64 

6015 PRINTS704 ," BITTE HAEHLENs PRINT" 1 = ZURUECK ZUM ST9RTME 
NUE 

6016 PRINT " 2 = LOESCHEN VON F ILES" PRINT" 3 = DRUCKERAUSGABE 

•' 130 ' 

6017 A*=INKEZ * : IFA*-"" THE N60 1 7 

6018 PR I NTS898 , " " ; i PRINT%898 ";HFA * 

- " 2 " 7NEN6500EL3EIE 9 3" Y HEN6400ELSE2000 

6020 9* = 1NKEZ * s 1F9 *=" " T HE N6020ELSEG0 701000 
6400 C MD "DIR 9 ,P" : LPRINT i G0T06017 
6 500 INPUT" FILENAME " r KK * 

6510 IFKKt--"0” TUEN 1000 

6520 1 F KK *=" T EXEB1 T / BAS " THE N60 1 8 

<5530 KILL KKT-- GOT 06000 

7200 •' tf****^** 1 ** 4 **##**##*##*###**#*##* 4 #* 4 * 4 ####* 1 *# 

7210 ’ LISTEN EINES TEXTES 

7220 ' tf#** 4 ** 4 *#*****#**##*#####* 4 *####*#* 4 ##*##-* 4 * 4 * 4 #* 4 

7222 Ä-~0 i CL S '■ PR IN T"L I S T E N EINES T E X T F 2 L £ S"*P 

RINT" . 

PR INT" BEGINN BES LISTENS : TASTE DRUECKEN" 

7222 IFPEEK ( 1 4591) = 0 THEH7222 

7223 CLS 

7224 IF PE E K (145 9 1 .> =0 THEN7224 

7225 IFPEEK <2 4352) -ITHS NI 000 
7230 F0RZ-2 T010: NEX T 

72 40 I F LEN ( X* (0) ) >6 4 THE NP RIN TX * < X ) E LSEPRI NT X* ( X ) ; 

7250 IFX<0 THENX-X+1 : GO T 07224 

7260 A*~INKE Z* PRINT ■ PRINT" TEXTENDE" i PRI NT" ME I TER - TASTE DRUECKE 
N" 

7270 F0RX=1 T0700- NEXT ■ 
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72.75 A*- INKEY* 

7230 A*-INKEY*: J.FA*^" ,, THEN7280ELSE2000 

7909 ’ A l A‘ A* A‘ A‘ A* A' A‘ A* A‘ A‘ A‘ A* A‘ A‘ A* A‘ A‘ A‘ A> A‘ A‘ A 1 A« A‘ A‘ ** A‘ A‘ A‘ A‘ A‘ A l A‘ A‘ A l 

8000 'VEREINFACHTE DRUCK ER AUS GABE 


7999 ’ X' -A« X' A> A‘ A l A> A‘ A‘ A‘ A* A‘ A* A' 

0000 •’ VEREINFACHTE D 

000:/ ’ •A‘-A t A‘A‘-A‘ A‘-A‘-A‘ A‘ A‘ A‘-A‘-AfA' 

00^0 CLS’ PRINT" A U S 


•A‘-A t A‘A‘-A‘A‘A‘-A‘A‘A‘A‘-A‘-A‘A‘-A l -A‘-A‘-A t -A‘'A‘A*A*A‘A‘AM‘A‘A«-A‘A‘A‘A‘A‘A‘A t A‘ 

LS: PRINT" A U S G A B E A U F D R 


C K E R"i PRINT" 

"-.PRXN 


: P*~X *(YV): &0SUS8300 


0020 INPUT" RANDABSTAND" ; RA 
0022 IFRA>./5 TNEN8000 
0025 RA=RA/2:RA=RA*2 

6-027 PRINT: PRINT" DEUTSCHER ZEICHENSATZ (UMLAUTE) VERNENDET <J> 0 
DER <N>" 

0020 KP-PEEK ( 1 4 SSO ) : IFKP-4 THENA1*=“J" ELSE IF KP- 64 T HE NA 2 * = " N" ELSE &0 
T 00 02 6 
002? PRINT 

0000 PR INT" DRUCKER AUF BLATT ANFANG STELLEN" 

SO 2 5 PRINT 

8040 INPUT "NIEVIELE KOPIEN"; KP 
8045 IF KP - 0 THE N 1000 
0050 F0RY=2T0KP 
8052 FÖ-RVY-OrOQ 

0050 IFPEEK ( 1 4352 )-2 THE NLPRINT: GO TO 1000 
8055 IFLEN ( X*( YY ) ) .>64 THENRA--0 

00 56 I F L EN ( X *(YY ) ) -80 THE NX * ( YY)-L£F T* ( X*(VY),7 9 ) 

8061 1 FLEF T*(X*(YY>,2 >~CHR * ( 227 > THENG0SUB82 50: GO T 08065 

8062 IF LE F 7 * ( X *(YY),2 ) § " THE NLPRIN TCHR* ( 2 4): L PRI NTSTRI NG* ( RA/ 2 . " 

: IF ( /..EN ( X* (YY) >- 2) /24RA>39TH£NP*~MI 0* ( X* ( Y Y > , 2 , 40- RA ) : G0SÜB83 

00: GO T 0806 5ELSE Pf -X * ( YY ) : G0SUB8300: GO T 08065 

8062 I FIEP T*(X*( YY) , 2 )-'CHR* ( 2 50 > TNENA*~R.TGH 7* <X* < Y Y ) , LE N( X * ( Y Y ) ) - 
1 ) : G0SUB8 500: GO T08065 

8064 L PRI N TCHR* ( 2 5): L PRINTS TRI HG* (RA . “ ") , : P*~X *( YY ) : G0SUB8300 

8065 NEXTYY - • 

8069 LP RI NT ' ■’ 

0070 PR1NT%640," HEITER: TASTE DRUECKEN" 

8080 /■)*■- INK E V* : IFA* - " " THEN8080 
80 90 NEXTY •• S0U->[ 

8092 I F LEN ( X* ( O ) )-79THENX*(0)-X*(0)^" " 

8095 PRlN7i\768 /'HEITER: TASTE DRUECKEN " 

8200 A*= INKEY*: IFA*-" “ THEN8 200 
8205 GOTO 2000 

8 2 50 L PR INT :F ORZ =2 TO 50 i 0U 72 55.2: 0U T2 55.0: OUT 2 55.2: QU 7255. 2 : NE XT 

8 260 PRINT %7 68, " £ - " ; - 

8270 PRINTS832, "DRUCKER AUF BLATT ANFANG STELLEN 
8280 P RI NT 1)89 6 , "TASTE DRUECKEN"; 

8290 PRI NT%96Ö , " ». 

8299 A*- INKEY* : IFA*-"" THEN8299 

8200 PR1NTS768," "« 

8220 PRI NT §832 , " ", 

3220 PRINT5896," ■> . 

8230 PRINTS960," 

8240 RETURN 

0000 I F A 2*~"N " THENL PR IN TP* V :R£ TURNE L SEP 0RX=2 T OL EN ( P* ) : M*-MI D* ( P* . 
X,2) ' 

8320 1 F ASC ( M* ) -9 2 T HENM* -CHP. * ( 2 77 ) EL SE I FASC ( M* )-9-2THENM*- CHR * ( 278 ) 
ELSE I F A S C <' M * ) ~93THENM* ~CHR* ( 2 8 0)EL E I F ASC ( Nt * > - 20 T HE NH& -C HR$ ( 2 62 .> 
E L SE 7. F ASC (H*) = 2 2 4 T HENM*- CHR *( 279) ELSE I F ASC ( M* )= 225THENN*=CHR* (282 
> ELSE I FASC ( N* ) - 2 26 THE NM * -■■CHR* ( 27 2 ) 

0020 LPRINTM* ' : NE XTX: RE TURN 

8500 ’ X L X L A ‘ Xf A‘ A 1 A‘ -A‘ A‘ A‘ -A‘ XX ■# A 1 X.‘X‘ # A* -A' * A ‘ * A‘ A 1 X‘ A £ -A 1 A‘ X‘ ■# -A‘ X X 1 - A‘ A‘ A‘ 


8069 
0070 
8080 
8090 
80 92 
8095 
8200 


8280 
82 90 


44 GENIE DATA 


8520 "UMWANDLUNG IN PRO PORT 10NALSCHR2F T 

8521 ’ ■x#*#####'»*#-»#*##'»**###'#*#'»###'»#-»-»#-*}-*#*-»##-» 

8520 LPRINTCHR*(8) 

8525 1FRA>0 THENL PRINT CHR* (8) ; CHR* (28) ; CHR* ( RA*6 ) ; CHR*( 128 ) ; 

8526 F ORK- LEN (A* > TO IS TEP- 2 : IFMIDS (A* .X .2 >»" " TRENNE/, T 

8527 A*-LEFT*(A* ,/) 

8530 FOR 7 =2 7 OL EN ( A* ) 

8 540 X*~M I D *(A*. 7,2): GO SU 88 920 
8545 LR RIN TCHR* (8 ) ; CH R * <' 228)- 
8550 NE/ TT 

8 920 I F ASC ( / * ) <76 T HE NGOSUB 9000 : RE TURN 

8930 JFASC ( Ä * ) >7 5 AND ASC CWX 227 T HENG0SÜB902 (): R.E TURN 

8 9 40 GOSUB 9020 : RE TURN 


9000 ONASC ( / * )-3 2 G0SUB9 500 , 9520 , 9520, 9530, 9540 , 9550 , 9560, 9570 , 
0, 9590, 9595, 9598 , 9600, 9620, 9620,9630, 9640, 9650, 9660, 9670 , 9680 . 
0 , 9700, 9720 , 9720, 9730 , 9740 . 9750 . 9500 .9755, 9500 ‘ 9760 ’ 9765. 9770 
5, 9780, 9785,9790, 9795, 9800.9805,9820 . 9825, 982 0 
9005 RETURN 

9020 ONASC (X * )-7 5G8SUB982 5 , 9830, 9835, 9840, 9845, 9850 , 9860 . 9865 , 
0, 9875 ,9880 , 9885, 9890, 9895, 9900, 9902 , 9902,9903,9500, 9905, 9500, 
20, 20020, 20030, 20040, 20050, 20060, 20070 , 20080, 20090, 20200 '. 202 20 
220,20230,20235,20240, 20250, 20260 . 20270 ,20280 . 202 90 
9025 RETURN 


958 

969 

977 


987 

200 

,2.0 


9020 ONASC (/*)- 21 6G0SUB 2 0200 , 1 02 20,1 0220 . 1 0230 ,102 40 ,10250.1. 0260 , 
10270 , 20280 , 202.90 

9025 RETURN ; * r , '• 

9 489 ' it#**########*#*##*#*##»######**#*#*#* *### 

9490 ' TJruckerausgaöe Proportional sehr i ft 
9 491 ■' ##**#*#**, V#* 1 **#*#*#*#*#***#**#**#*#***#** 

9300 LPRINTCHR* ( 128 >; CHR* ( 2 28 >; CHR* ( 1 28 ) : : RETURN 
9520 LP RI NT CHP,* ( 222 ); i RETURN 

9520 L PRINT CHRP ( 13 4 > - CHR* ( 1 2.8 > • CHR* ( 2 3 4 ) ; : RETURN 

9 530 LPR1NTCHR*( 264 ) ; CHR *(254) ; CHR* ( 254) - CHR* ( 1.64); : RE TURN 

9540 LRR IN T CHR * ( 268) ■ CHR* ( 272 > ; CHR* (254) : CHR*( 282 ) ; CHR* ( 148) : RE 

TURN 

9550 LP RIN TCHR * ( 164) ;CHR*( 1. 44) - CHR * ( 200 ) - ■ RE TURN 

9560 LPRINTCHR * (282) -.CHR* (202) -CHR* (222) -.CHR* (160) -CHR* (208) ; : RE 7 
URN 

9570 LPR1NTCHR*( 2.36); CHR* (234) --.RETURN 

9580 LRR IN TCHR* (288) -CHR* (294) - : RE TURN 

9590 LPRINTCHR* ( 2 94 ) ; CHR*( 288 ) ; s RETURN 

9595 L PR. TN TCHR* ( 222 ) ; CHR* ( 284 ) ; CHR* (2. 12 ) ; ’■ RE TURN 

9 5 98 LP RIN TCHR *(144) % CHR* (284) ;CHR* ( 144) - ‘-RET URN 

9600 LPRINTCHR* ( 192 >; CHR* ( 160) : : RETURN 

96 1.0 LP RI NT CHR *(2 44) - CHR * ( 1 44 ) -.CHR* ( 1 4 4) ; - RE TURN 

9620 L PRIN TCHR* (192);’. RE TURN 

9630 LPP.IN TCHR*( 224 ) ; CHR * ( 1 52 ) ; CHR *(1.34); ’■ RE TURN 
9640 LPRINTCHR* (288>;CHR* ( 194) -CHR* ( 288 ) ; : RE TURN 
96 50 LP RIN TCHR *(232) ; CHR* ( 2 5 4 ) ; ’ RE TURN 

9660 LPRl'N TCHR* (228 ) ; CHR* (210); CHR * (2.02 ) ; CHR* ( 196); : RE TURN 
9670 LP RIN TCHR *(262); CHR *(202) ; CHR *(224); CHR * ( 1 62 )- ‘.RETURN 
9680 L PRINT CHR* ( 258 ) ; CHR * ( 144) - CHR* (252 ) ; CHR* (244) ■ : RE TURN 
9690 LPRINTCHR* (206); CHR* (202); CHR* (202); CHR* (278 ) ; : RE TURN 
9700 L PR IN TCHR* ( 188 ) ; CHR* (202 > ; CHR * (202) ; CHR * < 278 ) ; : RE TURN 
9720 L PR2 NT CHR * ( 226 ) ; CHR * ( 1. 46 ) ; CHR *(238) ; CHR * (234); ‘.RE TURN 
9720 L PRIN TCHR* (180); CHR * ( 202 ) ; CHR* ( 202 > ; CHR * (280);: R.E TURN 
9730 L PR2NTCHR * ( 206 ) - CHR * ( 2 1 0 ) ; CHR* ( 2 10 ) - CHR* ( 1.88 ) ; : RE TURN 
9740 LP RIN TCHR* (168); : RE TURN 
9750 LPRINTCHR* ( 1.92) ; CHR* ( 1.68 ) ; : RETURN 
9755 LPRINTCHR * (268); CHR* ( 268); CHR* (268); : RE TURN 



SCHMIDTKE 


-|~1 electronic [aktuell 

j Büro- und Personalcomputer ^preiswert 

L Sandkau ls)raße 84 - Telefon: 024] - 232 17 

V 5100 AACHEN 

Wir senden Ihnen gerne unseren Softwarekatalog mit über 100 Programmen! (Natürlich kostenlos!) 


EG 2013 Joys t 1 ck -St t (2 Propor t r on a 1 - Joys t i ck s 
Ar*. 304 mit Analog-Di gi ta luandl er newie Tndlur) 

EG 2014 passender Kassettenrecorder mit Bind - 
Ar *.30 7 Zählwerk. 

EG 2017 hfruorigend geeigneter Kassse t ( rnrtc or der 
Art. 308 Jedoch ohne Bindzählwerk 

Neue PGM'» r neue Rom» für des Colour - Genie 

Infos und Preise gesondert infragen 1 
Sony CHF 40 Programm - Kassetten bester Qualität 
rtrt - 31t langjährig bei uns erprobt. I0rr-Pack 

Schal tpline Sammlung der Bestiickungs- und Schal t- 
Ar t . 313 Pläne für das Colour Genie und Zubehör 

Technisches enthält obige Sc ha I tp I ansamml ung, sowr 
Handbuch 81 ockdi agramme , Beschre i bungen und Hirn 

Art. 314 rum Netzteil, CRTC-Chip, PSG-Chlp, CPU 

CPU-Bef eh I ssat z , Anschlußbelegung, Him 

zum Parallelport und serieller Schnitt 

Kassetteninterface u.v.a.m. Art. 314 
R 0N - Llstlng uollständlg kommentiert, mit kcmmentiei 
uon _ Adressen, I/O Adressen, Un terprogr >mml 

L. Röckrath uiele Tabellen u.a. Art. 458 

ROM - Listing wie oben, Jedoch mit einer guten E i n f ul 
uon Begl e I t tex ten zum Listings Insbesondre! 

Klaus Kämpf Anfänger geeignet. Art. 44t 


GEMINI 10X - so 

für 

der GEMINI 1 0X ist 
mit r 1 
Druckkopf 

natürlich bidirektiona 
Hochauflösende Grafik 
die Auflösung 

ASCI I-Standard-2e I chensatz , 
Kursiu-Schri f t, Blockgrafik, 
Schriftbreiten, fett-, breit 
selbstverständlich wie ein 
1 ns truc 1 1 ans. C 
bis 25,4 cm uerstol 
(Gummiwal ze ) | s 
Prei s enthal ten 

Schnl ttstel le . RS 232C als Zubehör 

Art. 348 


ein Normal pap I er - Matrixdrucker von Star, 
einer Geschwindigkeit von 120 Ze i chen/sec . , ein 9-Nade I 
I sorgt für beste Sehr i f Iqua I i ta t , der Druck wird 
I und druckwegop t iml er t ausgeführt. 

Ist durch Einzelnade I ansteuerung mögt I ch i 

St von 48ü bis 192* Punkte pro Zeile wahlbar! 

88 Internationale Sonderzeichen, 
Graf iksonderze I chen , unzählige 
" i elite - Druck, etc, sind genauso 
ladbarer Zeichensatz und MACR0- 
Der Traktor für Endlospapier läßt sich von 7,5 cm 
- - ^ len. El nze I bl ät ter können eingespannt werden 
ogar eine Halterung für Rollenpapier ist im 
mi 1 Centronics - Parallel - 
ieftrbar. 

1195.- CM 

s Drucker-Zubehör ««r Anivj in aiurni tiilirpropus 

C Enolospapier mit perforiertem Lochrand (Lochrand abreißbar) 

‘ HF ö0i und 250mm - Papier ergibt ohne Lochrand 

< DIN A4 - Große. Bel Durchschlagen (2fach u. 3fach) handelt es 
sich um sei bstdurchschrei bendes Papier. 

Bei den Art. Nrn. 370 -.379 müssen auch bei Vorkasse je Karton 
5.- CM Porto mitgetragen werden (ansonsten Versand unfrei.) 

Bei NN erhöht sich das Porto auf 10.- 0M pro Karton. 

grüne Lese- Karton Art. Preis pro 
Breite x Lange Streifen Inhalt Nr. Karton 

240 mm x 12' Ifaeh nein 2800 81t. 370 48.- DM 

240 mm x 12- Ifach Ja 2000 Bit. 371 4B.~ OM 

248 mm x I 2 m 2fach nein 1800 Bit. 372 45.- DM 

240 nxn x 12' 2fach ja 1000 Bit. 374 45.- DM 

240 mm x 12" 3fach nein 750 Bit. 375 79.- CM 

250 mm x 12" Ifach nein 2000 81t. 374 58.- DM 

338 mm x 8 - Ifach Ja 20BB Bit. 377 52.- DM 

375 mm x 12- Ifach ja 2000 Bit. 378 59.85 DM 

Endlosetiketten, Addressauf k I eber : Größe 88.9 x 35.7 rren 

Tragerbandbrei te 115mm, Kartoninhalt 4088 St.i 1 -bahnlo 


POWER 

Joystick 


Stecker 
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9760 

9765 

9770 

9775 

9780 

9785 

9790 

9795 

9800 

9805 

98,10 

9875 

9820 

9825 

9830 

URN 

9835 

9840 

9 89 5 

9850 

9860 

9865 

9870 

9875 

9880 

9885 

URN 

9890 

989 5 

9900 

9907 

9902 

9903 
9905 
70070 
70020 
70030 
700-70 
70050 
70060 
70070 
70080 
70090 
70700 
70770 
707.20 
70730 
TURN 
70735 
70740 
707 50 
70760 
70770 
70780 
707 90 
70200 
7027.0 
70220 
TURN 
70230 


LPRI NIC HR f>( 7.3 2 ) - CH Ri (270 ) r CH RH ( 7 38 ) r CHR i ( 7 32 ) - : RE TURN 
L RR. TN TCHR* ( 788 >- CHRP (2.78 > : CHM (278 > ; CUR* ( 772 ) : - RE TURN 
L PRI NTCHRi ( 254 ) ; CHR* ( 738 ) • CH Ri (254 ) ; s RE TURN 
LRR. IN TCHR* (254 > - CHR* (2.02 ) ; CHRP ( 780 > ; : RE TURN 
L PRINT CHR i ( 788 ) ; CH Ri ( 7 94 ) ; CH Ri ( 764);'- RE TURN 
L RR. IN TCHR* ( 254 > - CHRP ( 7 94); CHRP ( 788 > ; i RE TURN 
L PRIHTCHR* (254) ; CHR* (202 ) ; CH Ri (202 ) ; ■ RE TURN 
LPR.TNTCHR* (254) -CHR* (738) ;CHR * (738) : : RE TURN 
L PR IN ICH Ri ( 188 ) ) CH Ri ( 7 94 ) - CH Ri ( 270 ) ; CH Ri (2 42 ) • s RE TURN 
LRR. TN TCHR * (254 > ■ CHRP ( 736 ) ; CHRP (254) ; : RE TURN 
L PRINT CHR* ( 7 94) CHR* ( 254 ) ; CHR* ( 7. 94 ) ; : RE TURN 
LP RI NT CHR* (760) - CHR * (792) : CHR * (790) ; '- RE TURN 
L PR I N TCHR *(254) ;• CHR i ( 7 36 ) ; CH Ri (7 48 ) ; CHR i ( 230 ) • s RE TURN 
LRR. TN TCHR* (254)- CHR * ( 792) CHR* ( 792 ) ; - RE TURN 

LPR'f. NTCHRi < 254) f CHR * ( 7 32 ) ; CHR i ( 7 52 ) ; CH Ri (7 32 ) ; CH Ri ( 2 5 4);’. RE T 

LP RI NT CHR *(25 4 ) • CH Ri (7 40 ) ; CHR* ( 7 76 ) ; CHR i ( 2 5 4 ) ; : RE TURN 
L PR IN TCHR * ( 788); CHR* (794) - CHR * (788); : RE TURN 
L PRINT CH Ri ( 254 ) ; CH Ri ( 738 ) ; CH Ri ( 7 42 ) ; t RE TURN 
LP RIN TCHR * ( 788 > ; CHR* ( 794 ) - CHR* ( 762); CHR* ( 220 > ; : RE TURN 
L PRINT CH Ri ( 254) ; CH Ri (7.38 ) ; CHR* ( 7 46 ) ; CHR* (236 ) ; - RE T/JRN 
L PR IN TCHR * ( 7 96 > ; CHR* (202 ) ; CHR * ( 202 > ; CHR* ( 778 ) ; ‘ RE TURN 
L PR I NTCHRi ( 7. 30 ) ; CH Ri ( 254 ) ; CH Ri ( 730 > ; - RE TURN 
L PR IN TCHR * ( 7 90 > ; CHR* ( 7 92 > ; CHR* ( 7 90 > ; : RE TURN 
LP RIN TCHR* ( 7 58 ) ; CHR * ( 22 4 ) ; CHR *(758) ; ' RE TURN 

LRR IN TCHR * (254); CHR* ( 760 > ; CHR* (752 ) ; CHR* (760 ) ; CHR* (254 ) ; : RE 7 


LP RIN TCHR *(230) ;CHR*( 752); CHR i ( 230 ) ; RE TURN 
L PR IN T CHR * (734) ■ CHR* (248) ■ CHR* (734.) ; : RE TURN 
L PRINT CH Ri (226 ) ; CH Ri ( 27.0 ) ■ CH Ri ( 202 ) ; CHR i ( 7 98 ) ; " RE TUP.N 
LP RIN TCHR* (250 > ; CHR* ( 7 48 > ; CHR*( 250 ) '■ RE TURN 
L PRINT CH Ri (250); CH Ri ( 200 ) - CHR* ( 250) ;‘-RE TURN 
LRR IN TCHR * (250 ) ; CHR * (792 ) ; CHR* ( 250 ) ; : RE TURN 
L PR 1 N TCHR t> ( 7 4 4 ) ; CH Ri ( 7.44) ; CH Ri ( 7 44 ) ; ■ RE TURN 
LPR.IN TCHR * (776 ) ; CHR * (200) ; CHR*< 243 > ; CH Ri < 7.92 > ; -RE TURN 
LP RI NT CHR i( 25 4 ) ; CH Ri ( 20 0) ; CHR* ( 776 ) ; -RE TURN 
LPRIN TCHR * (776) ; CHR* (200) ; CHR* (200) ; -RE TURN 
LP RIN TCHR i ( 776 ) ; CH Ri ( 200 ) ; CHR * ( 25 4 ) ; : RE TURN 
LPRIN TCHR * (248 ) CHR* ( 276) g CHR* (276) ; RE TURN 
L PR IN T CHR* <' 7.36) ; CH Ri (2 54) ; CH Ri ( 738) - : RE TURN 
LPRIN TCHR* (276 ) ; CHR* (276); CHR* (248); - RE TURN 
LPRIN TCHR i ( 254 ) ; CHR i ( 736 ) -.CH Ri (2 40 ) ; s RE TURN 
LPRIN TCHR* (250 ) ; : RE TURN 

L. PR IN ICH Ri ( 760 ) ; CH Ri ( 7 92) ; CH Ri ( 250 ) ; RE TURN 
L RR IN T CHR* ( 254 > ; CHR*( 776 > ; CHR* ( 200 > ; : RE TURN 
L PR IN TCHR i ( 254 ) : CHR * ( 7 92 ) ; s RE TURN 

LPRIN TCHR* (248 >■ CHR* ( 736 > ; CHR* ( 248 ) ; CHR* ( 736); CHR*( 240); sR£ 


LPRI NTCHRi (248) CHR*< 736) ; CHR*(240) ; - RE TURN 
LPRI N TCHR* (776 > ; CHR* (200) CHR* (776> - : RE TURN 
LPRIN TCHR* (248) - CHR * ( 1 52) ; CHR$( 1 52) ; s RE TURN 
LR RI NT CHR* (752) -.CHR* (752) ;CHR* (248) ; : RE TURN 
L PR I N TCHR i ( 2 48 ) - CHR * ( 736 ) ; s RE TURN 


L R R INT C H R * ( 2 O 8 ) ; CHR * (232);CHR* (768) - : RE TURN 
LPRI NTCHRi ( 7.36) ; CH Ri (254) ; CHR * (200) ; : RE TURN 
LPRIN TCHR* (248) ; CHR * (7 92) ; CHR* (248) ; : RE TURN 
L PR I N TCHR i ( 28 4 ) ; CHR i( 2. 92 ) ; CHR *< 7 8 4 ) - s RE TURN 

L RRI N TCHR* ( 784 ) : CHR * ( 7 9.2 > * CHR * ( 7 76 > ; CHE! * ( 7 92 ) ; CHR * ( 78 4 ) ; s RE 


L PR I N TCHR i ( 2 2 6 ) CHR * ( 2 60 ) ; C HR *(22 6 ) z’RE TURN 
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mm 

«fe- 

ilte 


jj»S* 


10 240 
10250 
10260 
10270 
10200 
10290 
10500 
10510 
10520 
10 525 
10530 

10 532 
620 
10535 
10540 
10550 
10560 
20570 
10572 
10575 
200 
105:30 
10590 
10600 
10610 
20620 
10630 
10640 
10650 
20652 
10652 
10654 
10660 


L PRXNTCHR* (200;: CHR* ( 176 > CHR* (136> : RETURN 
L PR 1 N T CH R * ( 200 > ; CHR * <' 232 > ; CHR * ( 2 16 ) ; CHR* < 200 ) ; s RE 7 URH 
L PR. IN TC HR* <• 178 > : CHR * ( 200 > CHR* < 250 > : CHR* ( 1921 f t Fi fl TURN 
L PR INT C HR * C 2 50 ) s CHR* ( 1 92 ) ; CHR * ( 2 50 ) ; f RE TURN 
L PRINT CHRP C 278 ) .: CHR* (200): CHR * (178).: ’■ RE TURN 
L PRINT CHR* ( 254) ; CHR*< 270) ; CHR* (102 ) - 5 RE TURN 

* A‘ A‘ A‘ -Jf A« A‘ A- * A> A‘ A‘ A‘ A» * ■» ■» A‘ A 1 A‘ A* A‘ A‘ A‘ Jf -A‘ A‘ A‘ A‘ 

" 7 ex t /orifatierunij 64/80 

■ A‘ A‘ A‘ A‘ A* A- A‘ A‘ A- -A‘ A‘ A‘ A‘ A< A £ A‘ A‘ A‘ A‘ A‘ A‘ A‘ A 1 A‘ • 

CLB 

PRINT "7 EU TFORMATZERUN G " -PRINT “ 

1F LE N ( Ai KO ) ) =80 THE NP RI NT" TE A 7 IST BE RE I TS F OP. HP TIER T" - GO 7 0 4 
N2=0 - N2=0 

PRINT %2 56 ÖLTE ZEILE NN UN MER" ; N 1 
PR.T N 7 % 320 , " NE (JE ZE .1 L E NNO MM iE R " ; N2 
F ORN1-OTOO 
PRINT 3273, N2 ; 

JFLEF T * (A*(N1 ) , 1)=CHR*( 127 ) THE NGO TO 10800 

IFLEF T*(X*(N2 ) , 1 )=CHR * ( 1S3)0RLEF T* (X*(N1) , !)="%" 7 HENSOSUBl 2 

FORT- 17064 
X ■* - M X D * ( X* ( NIX r T , 2 > 

IF l* = " " THENBOSUBl 1000s GO TO 10650 
r F ,r * = " ii "OP. X *=CHR* < 2 53 ) 7 H EN 106 50 
1F1 *=" ” THE N 2 06 50 
XFOSC <’ XI) =94 7 H ENGOTO 20 900 
1 lfi+1* 

nea r r 


i*=" 


rOSUB 2 1000 


NEX TN 2 
A*(N2)=f<* 

0=N2 -IF LEN ( A * ( 0 ) ) < 80 THE NA * ( 0 ) =A * ( 0 ) +S TRZNG*(80-L E N ( A *(0>), 




i:;: .. 


10665 PRZNTS382 " 

10668 Kt’-"" , 

10668 PR1 N7%337 . N2 

10670 PRINT i PRINT" TEA 7 FORMAT Z £ RU H G BEENDE T" 

10680 PRJNT i PR IN T"ME 1 TER TOSTE 7J RUSCHEN" 

10690 IFPEEtU 1459! )=OTHEN 10690ELSE 2000 
10800 1FU *<>" "&0SUB12000 

2081 0 A * ( N2 >=K*i N2=N2+ 2 J /<*=”": A*i N 20= CHR * ( 2 27 ) s H2=H2+ U60 TO 2 06 52 
10900 XE 11*0"" TH EN GO SUSI 2 OOO : ZL-9 
1 0910 IF H * < > “ " THE NA * ( N2 )=K*iN2=N2+U K *=" " 

10920 IF T=2 THE NA* ( N2)=" " : N2=N2+2 
20925 PR1NTS337 ,N2; 

10930 GO TO 2 0650 
2 2000 IF 11 * = " " T HEHRE TURN 
1 2 0 2 0 Z = L F.N( H * ) L E N (XI*) 

12020 tFZ<$QTHENK**K* + tl* + " "’11* = " "s RE TURN 

12030 XE Z. > 8 OTHEN * (N2) =H* : K*=.TX*+" " : N2=N2+1 1 X Xf> ="" i PR1N T%337 r N2 
■ : RE TURN 

2 1 200 IFLEF T*(K*,1 > = " § " OP.L EFT*( « * , 2 ) =CHR* ( 1 53 ) THE NRE TURN 
R*=LEE T * (X* (NI ) . 1 ) *«* : RE TURN 

’ BEDIENUNGSFEHL ER 

I F ERL=60 2 87 HE NPRI NT %896 ."FILE NICHT 7.M Ul RECTOR/ “ ; t FORT =2 TO 


11220 

12000 

12010 

12020 

12030 


900 : NEX T ■ PP.XNT5896 , 


•.GOTO 60 18 
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1 2032 I F ERL =83 1. 0 TH EHRE SU ME 8000 
22035 XFERL*4236 THE NRESÜME 8220 

12038 1 E E RL =6 53 0 7 HE HR RI NT §8 9 9 , “EIL E NICHT IM DIRECTORY" s s F ORY* 278 
900 : NEX T : RESIJME60J8 

12020 7. F ERL= 4 5407 HENPR1 NT% 9 2 , " F I L E NICHT 7.M DIRECTORY" : ' F0RV*1 TO 
900 : N E X T ’ PR I N T ?i 1 92. , " " ’.PRX NT%29 1 , " : GOTO 

4530 

12050 1F ERL = 4 5800 R 4 5857 HE NC L OSE : PR IN 7 '■ PRINT " SPEI C HE R DDL L " s GO 7046 
10 

12060 1 F E RL =283 ö THE N PRINT" * * * SPEICHER VOLL * # *" -.30 7046 20 
22070 I F E R L = 4 040 THE N P R .1 N T " * * * SPEICHER VOLL NOCH SEILE ":Q;" 

* * *“ : GOTO 46 1.0 

12080 7. F ERL* 20600 THENPR1 N7§ 448 KEIN TEXT IM SPEICHER" ’■ GOT0461.0 
1208 5 IE ERL 20600 i BO TOI 0650 
7.2090 PRINTERL 

23000 ’ ************************************************ 


13020 •’ NEITERSCHREIDEN DON TEXTEN 

13020 ' ************************************************ 


23022 CLSt PRINT" E R N E I T E R N E I N E R TEX T 7J DTE 

1" i PRINT" - — 

" j PRINT i PRINT" F ILENRNE • Bt'. PRINT tPRIN T" BEGINN OER EINST) 

BE TOSTE D RU EC KEN" 

13022 f-)*=XNKEYt : IF 7-)*=" " T MEN 23022 
23025 CLS 


2 3030 I F 0< 1 3 THE NF ORX=OTOO s PR 2 NT X * < X > ? : X t C X > = " " -HEXT : X = 1. 5360+0*6 4 
POKEX . 231 i 0*0 : GO TOI 3050 

13040 POP.Z=Ct~ 13T 00 ■ PR INTXt’CZ) - J Xt> C 2 > = " " s HEXT s 0=0- 1 3 1 POKE 26256 , 23 2 
■ X* 26256 

13050 PRI NT ft 960 , 


"SETSETSETSET— > SCHREISMODUS < — S 
TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE T L 


E TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE 
•" 00 SE TSE TSE TSE TSE TSE TSE TSE TSE 


7 SET" ; 

13055 Q 1=8'. PRI NT § 100 9 .02 + 25 ; " " 

13060 GO 7021 96 

24000 ’**************** 

14010 ■ EDITOR 
1 4020 •" **************** 


24025 34=0 

24030 CLS ■ PRINT" E D I T 0 R" PR I NTSTRI N&* C 64 PR 1NT"STRR7 '. 7 

OSTE 0 RU EC KEN" 

14040 fl*=l NKEZ* : I F A*=" " TUEN 1 4040ELSECLS 

1 4060 F0RX---0 T013 : IF LEN C X f C X > > <6 4 TH EN PRI MT XU C X > EL SEP R.TN TX f. C X ) y 
2 4065 NEXTX 


14068 PR IN TX ? ( 1 4 } ; 

2 4070 PR INT §960. 

"SE TSE TSE TSE T- - > EDI TOR <- - SE TSE TSE TSE TSE 7SE TSE TSE TSE TSE TSE TSE TSE 
TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE. TSE. TSE TS 


£ TSE TSE TSE TSE TSE TSE TSE TSE TSE TSE 7" ; 
24075 PRINTvlOlO," L = 15 "y 
1.4080 1=0’. 01 = 15 


2 4100 7. =2 5360 


1 41.20 Z2=PEEK(Z) : Z2=7.’ POKEZ , 279 
24225 IFPEEKC 24400 > * S 2 7) N D 3 > 2 5 3 60T HENZ-2- 3. 
14116 IFPEEKC 1 44001 =640NDZ< 1.63 2 9 THENZ=Z+2 
24227 IFPEEKC 24400 >=26/-)ND3< 26255TH EN3=3+64 
1411 8 IFPEEKC 1 4 400 > =8 PN DZ >154 23 TH ENZ* Z- 6 4 
2 4120 IPPEEK C 14338 >=8 THENF’OKE 32 , 31 -.BOT 014600 
1 4 1 2 5 I F PE E K C 1 4338 1 =2 THE NP0KEZ2 r ZH GO 70 2 4700 


14230 IFPEEKC 2 4400 >=£ THE NP OKE 32 , 32 s BO TOI 4200 
2 4235 IFPEEKC 2 4344 >*4 THENP0KEZ2 , ZI s GO 7014230 
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2 4240 IFP££K ( 2 4337 >*l TFJENP0KE.32 ,3 3 s GO TOI 4800 
14 i 50 1. FPEE K ( i 4337 > *32 THE NP OK £32 ,32:60 TO 2 4 900 
34290 PO KE 32 , 23 s GO TO 3 43 20 
2 4299 ■* 

24200 'BILDSCHIRM SC ROLL 
2 4202 ■' 

24230 3 t (!>■-"" 

1 4220 7*0 PPP TR ( Vfi): PO KE 7 , 6 4 : POKE 7*2 , 0 : PO KE 7*2, &H3C s X 7- (7.) =07 
3 4230 1=1*3 : IPI=0 THENG0SUBI3 4300 
2 42 40 60SUB2 920 

34250 PR IN Th 896 , X$ <03 >■ i 02=02*3 

2 4255 P RI NT h 20)2 4 , 7*2 5; 

24260 GO 702 42 20 

1 4299 ' v ■******■*###**#**#*******#■»** 

24300 'strlng verschieben 

24302 ' if###*########-###*#**####*#* 

3 4320 IP2 4202 THENRE T IJP.N 

2 4320 F 0RX=Z4 700 2 STEP- 2 : X* ( X* 20 ) =X 7 ( X > sNEXTsZ 4=2 4*20: 0 2 =0 2* 20: RET 
UPM 

2 4599 ' #**######«*#*#######■#####••## 

34600 'KILL LINE 

2 4602 ' X#**####**#-*###»####*-##-*### 

3 4620 007.(2 > = INT< (2-353607 264V 

2 4620 G0SUB2 920 : 007. ( 2 ) =0: PR2NTS896 , X t < 02 02=02*2 : GO 70 2 4 2 20 

2 4699 •’ ■» ■* * ■» ■* A* ■» x x x-x x x x x x ■# x x * x ■* x # x x -A‘ 

2 4700 ■' Insert 1 Ine 

2 4702 ’ * X A‘ X X X X A 1 X X X -A‘ X X X X X X X -A‘ X X ■» X X X A l 

7. 47 2 0 X 7- ( 2 )= " " s FORX = 2 5360 TO 2 5423: X (■ ( 7 ) =X *<2> *CHRf> ( PE E K < X ) ) s NE X 7 
2 4 7 2 O I •- 1 * 2 :P R I N TU 3 O 3 4 , I * 2 5 ; : I P .2' - >3 3 T H £ N 00 (J » 3 4 3 O O 
2 4730 00 7. ( 3 ) = 7 N 7 < ( Z- 2 5360 > / 6 4 ) s B0SUB2 920 :OAZ ( 3 > = 2 4: GO TO 24 2 2 0 

2 4 7 9 9 ' ■» X A‘ X X A‘ A* X A‘ X X X X A‘ X X X * A‘ -A‘ A 1 A‘ A 1 A‘ -A‘ A l X 

2 4800 •* editar 

2 4802 ’ xxxxxxxxxxxxxxxxxxxxxxxxxxx 
24805 Rt- = IN KEYP 
2 4820 P OK EI 2, 12 
2 4820 Z3--PEEK (3 > : POKEZ , 292 
2 4830 Rf>=INKE7* : IFRi>="" TUEN 2 4830 

2 4835 IFA$=CHR $ ( 8 > THENI F Z>2 5360P0KEZ , 32 1 3=3- 3 : GO TO 24820 
24840 JFR*=CHR*< 9> THENPOKEZ „ Z 2 i &0T024 2 20 
34850 I F /-) i'=C NP. •{• (25) THENX=3 : G0SUB3500 : Z=X : GO 7034830 
2 4860 7 F ft {•=€ HR 2- ( 2 4 > THE NX =Z : 60SUB3600 : Z=X s GO 70 2 4830 
24870 IFR*=CRR* ( 92 > TNENAt=CHR* ( 2 53 > 

2 4880 IFfH =CHR * ( 96 ) THE NR* =CHR f( 292) 

2 4885 IPflSC </U >=32 7 HENGOSUB260Ö 

2 48 90 IF X-i 263 29 TUEN POKE I , fiSC (A*>: 1=1*2 s GO TO 2 4820E LSEPOKE 2 63 2 9 , Z i G 
0 TO 2 4820 

2 4899 •' x#######*-####*#######-#*#*## 

2 4900 •’ ebspel cherung 

2 4902 •’ x#-x###-x #################### 

3 4920 IF 028347 H £ N F 0 R >! - 3 4 TOOJS TEP- 3 : XF(X* ( 25- (02- 1 > > >=X*< X > : HEX TX 
2 4 920 F OP.X= I TO I* 2. 4 : XU ( X) = " " 

24930 7=(/ARPTR((JF > : POKET ,64: 7 M= 2 5360* ( X- 1 ) *64 : TT= 1 N 7 ( TN / 2 56) : 77=7 
M- T 7*256 : POKE 7*2 .77: POKE 7*2 , T 7 : X F ( X > =0 * 

2 4940 NEX7X 

2 4950 IF 1*2 4 > Z 4 7 HENO= 1*2 4£LSEQ=Z4*( 2 5- ( Q 2 - I ) > 

34960 GOT 02 000 

2 5000 EORX =272 2370272 42 : RE AD 7 : POKEX , 7:NEX TX 
35070 RETURN 


11ATR33 ,236, 227 .3 4 , 228 ,65 , 295 ,204 ,6 ,205 . 23 ,38 ,2 23 ,2( 
t 3 , 2 8 , 20 5 , 2 , 43 , 226 , 3 5 , 2 2 5 , 3 5 , 224, 22 5 , 2 03,0 
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Sascha Grebe 



20 : -r- -r- r- :t: >►: H: -r - :+: :r :+: -r ;t: i+: :t: ;t: :t: :+: :+■ i 

30 r \c.< Copyrisnt 
40 r Di 

50 r Sascha Grebe 

60 r *. 

70 r Silke Schmidt 

3 0 : ! * : :t: : + : -l : : t : ’f- >K -V :+•' fK »K -t- 'f 

90 7 Am Stein 10 
100 " 5419 Raubach 
1 1 >0 7 West Germany 
120 " Tel. 02684/5664 * 

1 3 0 7 *'■ -t: -t: >H :+i :+: :+: :+: '■¥ :+: :+: * :+: :+: -r- :* :+: 

140 "Dieses Programm Iaeuft aut 16/32 K 
en ■" alten" Und neuen Colour Genies. 

150 7 Es benoetiat keine Joysticks und 
160 ÖLE ARO 

170 DN ERROR GOTO 3600 
180 CL5 
190 RANDOM 

200 CLEAR (MEM- iMEIi-50) ) 



Hier haben Sie ein Vokabel-Lern- 
programm für Ihr Colour Genie. 
Um es zu benutzen, müssen Sie 
folgendes tun: 

Tippen Sie das Programm wie 
abgedruckt ein. Speichern Sie es 
dann ab und starten Sie es mit 
RUN. Alles weitere wird Ihnen 
jetzt von Ihrem Colour Genie er- 
klärt. Falls das Programm nicht 
einwandfrei läuft, besorgen Sie 
sich einen Partner und untersu- 
chen es nochmal auf Tippfehler. 
Das Programm hat eine Error-Ab- 
frage, deshalb werden nicht Pro- 
grammfehler, sondern nur Einga- 
befehler angezeigt. Viel Spaß! 

Es iaeuft ausserdem auf o 

auch keinen Drucner. 


210 DATA1, 1 
220 DAT AS* 5 
230 DATA6.-6 
240 DAT A3. -3 
250 DATA2, 2 
260 DATA7,6 
270 DATA5, 4 
280 DAT A3 ,2 
290 7 . i Al, 5 
300 DATA6,3 
310 DAT A2 :• 7 
320 DATA7,6 
330 DATA6, 5 
340 DATA5,4 
350 DATA4,3 
360 DATA3,2 
370 DATA2.-1 
380 DATA 1,1 
390 DAT Al, 7 
400 DAT Al, 6 
410 DATA2, 5 
420 DATA3, 4 
430 DAT A4, 4 
440 DATA5, 3 
450 DATA6, 2 


460 DATA / , 1 
470 DAT A7 , 7 
480 DATA6, 6 
490 DATA5, 5 
500 DAT A4, 4 
510 DAT A3, 3' 
520 DATA2, 2 
530 DATA 1,1 
540 DAT A2, 2 
550 DAT A3, 3 
560 DAT A4, 4 
570 DATA5, 5 
580 DATA6, 6 
590 DAT A7, 7 
600 DAT AS, 8 
610 DAT A9 , 9 
620 DATA10, 10 
630 DATA 11, 11 
640 DATA 1,1 
650 DATA 1,1 
660 DATA2, 2 
670 DAT A3, 3 
680 DAT A3, 3 
690 DAT A4, 4 
700 DATA5,5 


710 DATA5, 5 
720 DATA 1,3 
730 DATA5,7 
740 DATA7 , 7 
750 DATA7 , 7 
760 DATA7 , 7 
770 DATA 1,1 
i 0U DAT A6 , 
790 DATA 1,1 
300 DATA5, 5 
810 DAT A2 , 2 
820 DATA4, 4 
830 DAT A3, 3 
340 DAT A3, 3 
850 DAT A4 , 4 
860 DATA2, 2 
870 DAT A5 , 5 
330 DATA 1,1 
890 DAT Ao , 6 
900 DATA 1,1 
910 DATA7 , 7 
920 DATA 1,1 
930 DATA 1,1 
940 DATA 1,1 
950 DATAO, 0 
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960 RE5T0RE 

970 C0L0UR RND (16) 

9 Bö PRINT©40, "■ a maass ■ m mmsm mm morn ra 

990 CDLOUR RND (16) 


1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 


PRINT®80,"B B ■ OBS 
C0L0UR RND (16) 

PRINT® 120, "a a a m tarn 
CDL0UR RND (16) 

PRINTIÜ160, " aa a « a a 
C0L0UR RND (16) 

PRINT® 200? " m a i 

CDLDÜR RND (16) 


a m a" 


ES B B M " 


1080 PRINT032O, "wmm robb 
1090 CDLOUR RND (16) 

1100 PRINT036O, " MB B B 
1110 CDLOUR RND (16) 

1120 PRINTÖ400," «B 
1130 CDLOUR RND (16) 

1140 F'RINT®440, " BB B B 


B B 


1150 CDLOUR RND (16) 

1160 PRINTlMBO," fflfflBBBHBBBB BBBB B B" 

1170 CDLOUR RND (16) 

1 1 BO ppi NTQ720 , " DRUECKE EINE TASTE ZUM START " 

1190 CDLOUR RND (16) 

1200 F'RI NT®880, " (C) <L) (S) (G) 1984 BY SASCHA GREBE" 

1210 A*= INKEY* 

1220 IFA*< >" "THEN12B0 

1230 KUK=KUK+ 1 : • 

1240 I FKU><= 1 5ÖTHEN)<UX=Ö : RESTORE 

1250 READXWK 

1260 PLAY ( 1 , 4, XWX, 15) 

1270 G0TD970 
1230 PLAY ( 1,4,4, 0) 

1290 C0LÜUR16 
1300 CLS 

1310 PRINT®40, "DIESES PROGRAMM WIRD IHNEN SEHR HELFEN,"? 
1320 PRINT "DA MAN MIT IHM ALLE VOKABELN UEBEN KANN." 

1330 PRINTS120, "SIE KOENNEN DIE VOKABELN, DIE SIE UEBEN " 
1340 PR INT "WOLLEN, DIREKT VON KASSETTE LADEN, ODER" 


1350 PR INT "AUCH EINTIPPEN UND DANN AUF KA5SETE AB-" 
1 360 PR I NT " SF’E I CHERN . “ 


1370 PRINT 


1330 PRINT"SIE HABEN AUCH DIE MOEGLICHKEIT, DIE VD-' 


1390 PR INT "KABELN IN KLEIN - BZW. GROSSBUCHSTABEN "? 
1400 PRINT"EINZUTIF'PEN. AUSSERDEM KOENNEN SIE DIE " 
1410 F'R I NT " VOKABELN VON KASSETTE EINLESEN BZW. AUF" 
1420 PR INT "KASSETTE ABSPEICHERN." 

1430 PRINT 
1440 PRINT 
1450 PRINT 
1460 PRINT 

1470 PRINT" VIEL GLUECK !!!" 

1480 PRINTS8B9, "DRUECKE EINE TASTE !" 

1490 ON ERROR GOTO 3600 
1500 RESTORE 
1510 F0RC!L=1T0150 
1520 READ LQ 
1530 F'L A Y (1,4, LO ,15) 

1 540 I F I NKEY*< > " " THEN 1 620 
1550 FOROB=1T040 
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1560 NEXTOB 
1570 NEXTQL 
1580 PLAY <1,4, 4, 0) 

1590 F0RTUT=1 TD1500 
1600 NEXTTUT 
1610 GOTO 1500 
1620 PLAY<1, 4, 4,0 
1630 CL5 
1640 GOSUB 29 BO 
1650 CL5 

1660 PRINTS40» "WIEVIELE VOKABELN MOECHTEN SIE EINTIPPEN" ? 
1670 I NPUTVOK 

1680 IFVQK=VAL < " " ) THENV0K=1 
1 690 I FVGK=OTHENVOK> 1 
1700 CL5 

1710 DIMDEU$(VOK) 

1720 D IMAUS$ ( VüK> 

1730 ON ERROR GDTO 3600 

1740 F0RZ=1T0V0K 

1750 PR I NT S20, "VOKABEL NR. " 5 Z 

1760 PRINTS 120, "GEBE DIE AUSLAEND I 5CHE FORM EIN ! " 

1770 PRINT 

17 SO INPUTAUS*(Z) 

1790 PRINT044O, "GEBE DIE DUETSCHE FORM EIN !" 

1800 PRINT 
1 B 10 INPUTDEU*(Z) 

1820 CLS 
1530 NEXTZ 
1840 CLS 
1850 G0T03330 

1B60 PRTNTS40, "JETZT HABE ICH DEINE GERADE EINGETIPPTEN"; 
1870 PRINT "VOKABELN GESPEICHERT. NUN MUSST DU EIN-" 

1 B80 PRINT"GEBEN ? OB ICH DICH DIE VOKABELN IN" 

1 B90 PR INT "DEUTSCH ODER IN DER AUSLAEND ISCHEN " 

1900 PRINT "SPRACHE ABFRAGEN 50LL." 

1910 PRINTÖ360, "ALS KLEINE SCHWIERIGKEIT KANNST DU WAEH-"; 
1920 PR I NT" LEN ? OB ICH DICH DIE VOKABELN REGELM AES-" 

1930 PRINT"SIG (NACH DER REIHE) ODER UNREGELMAES3IG" ; 

1940 PRINT" (DURCHEINANDER) ABFRAGEN SOLL 

1950 PRINTS600, "WENN DU KEINE LUST MEHR HAST, DANN TIPPE " s 
1960 PRINT" <-> EIN." 

1970 EWE=ö 
1980 PF-0 

1990 PRINTS680, "1 — DEUTSCH REGELM AESS IG" 

2000 PR INT "2 — DEUTSCH UNREGELMAESSIG" 

2010 PR INT "3 — AUSLAEND I SCH REGELMAE5SI G" 

2020 PR I NT" 4 — AUSLAEND I SCH UNREGELMAESSIG" 

2030 PRINT 

2040 PRINT"WAEHLE WAS DU UEBEN MOECHTEST. " 

2050 A$=INKEY$ 

2060 I FA$= " 1 " THEN2630 
2070 IFA$“"2"THEN21 10 
2080 IFA$=”3" THEN2S30 
2090 IFA*="-"THEN3510 
2100 GDTD2050 
2110 P-RND ( VOK) 

2120 IFP=0THEN21 10 
2130 CLS 
2140 PP=1 

2150 PRINTS40, "NENNE MIR DIE DEUTSCHE FORM FUER : " 
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2160 PRINT 
2170 PRINTAUS*<P) 

2180 PRINT 
2190 PRINT 
2200 PRINT 
2210 INPUTEIN* 

2220 IF E I N*= " - " THEN35 1 0 

2230 IFEIN*< >DEU* (P> THENG0SUB2340: G0TQ2130 
2240 GOSUB2260 
2250 GQT021 10 
2280 CL5 

2270 F0RWART=1T03Ü 

2280 PRINTS489, "S E HR GUT ! ! ! " 

2290 PRINT@489, " 

2300 PLAY ( 1 , RND < 8 ) , RND ( 7 ) , 15) 

2310 PLAY < 1,4, 4,0) 

2320 NEKT WART 
2330 RETURN 
2340 CL5 
2350 FÖRQ=1TQ20 

2360 PRINT@50,"F A L S C H !! !" 

2370 PLAY<1, 1,1, 15) 

2380 IFPP=2THENPRINT@200, "DIE RICHTIGE FORM HEISST PRINT: PRINTAUS* ( 

P> ' V ^ 

2390 IFPF-1THEN PRINT @200 ," DIE RICHTIGE FORM HEISST : PRINTa PRINTDEU* < 
P) 

2400 IFEWE=2THENPRINT@200, "DIE RICHTIGE FORM HEISST s " s PRINT: PRINTAUS* 
(WEW) 

2410 I FEWE= 1 THENPR I NT02OO , "DIE RICHTIGE FORM HEISST PRINT: PRINTDEU* 
< WEW) 

2420 FDRR-1T050 
2430 NEXT R 
2440 PRINTS50, " 

2450 NEXTQ 

2460 PLAY (1,4, 4,0) 

2470 RETURN 
2480 P=RND ( VOK) 

2490 IFP=0THEN248Ö 
2500 CLS 
2510 PP=2 

2520 PRINT04O, "NENNE MIR DIE AUSL AEND ISCHE FORM FUER : " 

2530 PRINT 
2540 PRINTDEU* (P) 

2550 PRINT 
2560 PRINT 
2570 PRINT 
2580 INPUTEIN* 

2590 IF EIN$="-"THEN 3510 

2600 IFEIN*< >AUS* (P) THENG0SUB2340: G0T02500 

2610 G0SUB2260 

2620 G0T024B0 

2630 FQRWEW= 1 TDVOK 

2640 CLS 

2650 EWE= 1 

2660 PRINT640, "NENNE MIR DIE DEUTSCHE FORM FUER :" 

2670 PRINT 

2680 PR INT AUS* (WEW) 

2690 PRINT 
2700 PRINT 
2710 PRINT 
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2720 INPUTPL* 

2730 IF PL*= " - " THEN35 1 0 

2740 I FF'L*< >DEU* ( WEW ) THENG0SUB2340 : G0T0264G 
2750 G0SUB2260 
2760 NEXTWEW 

2770 CLS:PRINT028O, "Dü HASST JETZT DIE VOKABELN 1 -MAL DURCH." 
2780 PRINTS610, "DRUECKE EINE TASTE !" 

2790 A$= INKEY* 

2800 IFA*=" "THEN2790 
2810 CLS 
2820 GOTO 1950 
2830 FORWEW= 1 TOVOK 
2840 CLS 
2850 EWE=2 

2860 PRINT04O, "NENNE MIR DIE AUSLAEND I SCHE FORM FUER 

2870 PRINT 

2880 F'RINTDEU* (WEW) 

2890 PRINT 
2900 PRINT 
2910 PRINT 
2920 INPUT TR* 

2930 IF TR*= " THEN35 1 0 

2940 I FTR$< > AUS* ( WEW ) THENG0SUB234O : GOT02B40 
2950 G0SUB2260 
2960 NEXTWEW 
2970 G0T02770 

2980 PRINT04O, "WOLLEN SIE VOKABELN EINLESEN ? (J/N)" 

2990 A*= INKEY* 

3000 IFA*=" " THEN2990 
3010 IFA$="N" RETURN 
3020 IFA*=" J "THENG0T03060 
3030 PLAY <1,4, 4, 15) 

3040 PLAY (1,4, 4,0) 

3050 GOT 02990 
3060 CLS 
3070 PRINT 
3080 PRINT 
3090 PRINT 

3100 PRINT Kv.:: ' ■' / v'Y ■ 

3110 PR INTIÜ400, "STARTE DEN REKORDER, DANN DRUECKE RETURN" 

3120 A*= INKEY* ; 

3130 IFA*=" "THEN3120 
3140 PRINTS38, 5 
3150 I NF’UT #— 1 , VOK 
3160 F'RINT@39, 

3170 PRINTS39, " " 

3180 IFV0K=0THENV0K=1 
3190 DI MAUS* (VOK) 

3200 DIMDEU* (VOK) 

3210 F0RA=1 TOVOK 

3220 INF'UT#-1 , AUS* < A) , DEU* ( A) 

3230 PRINTQ39, 

3240 PRINT@39, " " 

3250 NEXTA 

3260 F0RXF'X=ÖT030 

3270 PRINT0815, "ALLES O.K." 

3280 PRINTS815, " 

3300 NEXTXPX 
3310 CLS 
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COLOUR - GENIE SOFTWARE 

SCHMIDTKE 

elec tronic 


NEU 

AKTUELL 


1 Büro- und Personalcomputer ^preiswert 

1 Sandkaulsfraße 84 - Telefon: 0241-2 32 17 

V 5100 AACHEN 

Wir senden Ihnen gerne unseren Softwarekatalog mit über 100 Programmen! (Natürlich kostenlos!) 

PROTHEUS 

PROTHEUS - Schech l«t »In» koneequent» U» I ler» n twick I ung de. 

Progreirmm CG-Schach und bietet g.g.nüber dlee.in, nrbm »*ln*r 
Sp I e 1 • t Irk e , »Inen w.e.ntllch höher.n Btdl enung.Kcfn# or t und 
♦ In» »trbmirt» Grat I Kdar mt»ll ung. Uortell» von PROTIIEUSi 

- 7 Spleletlrken 

- Brettdaritel lung In bochau* I «»ander Grafik mit 
we.entllch b»»«er»m Oe.Ign d»r Figuren. 

— Au tonnt I »che Br» ttdr»bung f d.h. d*r Spl»1»r »pleft 
Immer von unt»n nach obtn. 

-HSgllchkelt d»r ZugrOcknahm» . 

- PROTHEUS »rk»nnt automatlach, ob »In Drucker ange- 
«ehlotaen und «lng«»chal tat lat, und protokol 1 I »r t 
dl» Zdg». 

- But»*, lmm»r w»ch»»lnd»» D.monalra t I on»»p I » I . 

- Einfacher»* Verfahren b»lm Aufbau *ln»r 
Probl em»tel lung. 

- Slch«rn und Lad»n uon Spl »I »I tua t I on»n auf Ka*«»tt». 

- Unter sch I »dl I chv Darstellung der Figuren bei Färb - 
oder S/w - Fernaehgeriten , 

Protheu» wund» an SAR0OJ II ang»l»hnt und besitzt »Ine enorm» 

Spl »I st irk» | so schlug •» In einem Testspiel das Col our-Schach 
<von TCS> obwohl dieses mit weiß spielt». <uon Gerhard Uol f ) 

■*-: — Art. 892 SeS 59.- 0M 


OTELLO 

Oimp* Spiel l*t auch bekannt unter dem Namen 'Reversl'. 

Auf da* schachbre ttähn f I che Sp I e 1 f e I d mö ssen $it abwechselnd 
mit dem Computer »Inen Stein Ihrer Farbe legen. Die gegnerisch- 
en Steine, die zwischen Ihrem zuletzt gelegten und einem ander- 
en Ihrer Stein# Hegen, erhalten dann Ihre Farbe. Ziel l*t e«, 
zum Schluß (d.h. wenn alle Felder besetzt sind) möglichst viele 
Steine der eigenen Farbe zu haben. Verschiedene Schwierigkeits- 
grade sind vorab einstellbar. 

(Pförtner) Art- 937 SeS 23.- CM 


ä 


TRASMAN . 3Z K 

Eint neue Spiel Idee» haben Sie ein gutes S tr aßengedäch tn i s , 
sind Sie reak t I onsschnel I , können Sie vorausdenken und d»n 
Gegner In Sackgassen locken, um Ihn dann e I nzumauern“’ D*nn 
geschossen wird In diesem Spiel nicht. Als Hu I Imanr mOssen 
Sie In einer großen Stadt alle MGI I tonnen einsammeln, dabei 
sehen Sie Jedoch nur gerade Ihre nächste Umgebung auf d<*m 
Bildschirm. Als erstes müssen Sie die Tankstellen finden, 
bei denen Sir dann regelmäßig auftanken. Sodann dürfen Sie 
sich nicht verirren, um schnell genug zur Tankstelle zurvck- 
zuflnden. Ihre einzige Möglichkeit mit den Verfolgern fertig 
zu werden Ist Ihre Intelligenz: Sie können Hauern bauen und 
Ihre Gegner so abhingen oder gar völlig einmauern. Auf einem 
Radarschirm können Sie die Position ihrer Gegner grnb absr.hät- 
ren. Mervoragende Grafik und toller Sound lassen dieses Spiel 
zu einem f asz I n I er endem Aben t euerer I ehn i s wprden. Ein absolut 
empf eh I enswer tes Spiel mit sehr hohem Progr amm I er au fwand . 

(von Patrlc Thomas) Art. fl?l SeS 59.- [XI 


COLOR-QUBERT . „ K 

Qubert, das kleine Männchen auf der Pyr.xmlde, hat bereits 
unzählige Herzen der ATAR I -Te I e sp I e I freunde erobert. 

QUBERT - JETZT AUCH FöR IHR COLOUR - GENIE • 

Ein Männchen steht auf einer Stufenpyramide und muß nun von 
Stufe zu Stufe springen. Erst wenn er jede Stufe mindestens 
einmal erreicht hat, Ist er zufrieden. Dies Ist aber gar nicht 
so einfach, da er dauernd auf hüpfende und her abf a I I ende Sacher» 
achtgeben muß. Auch hier zählt Intelligenz und Reak t I onsver - 
mögenj es wird nicht geschossen? (von Patric Thomas) 

Art. 8 96 SeS 49.- [XI 


COMPUTER-FRUST 

0a* wahnwitzige Str a tegi esp 1 e I ? (von Frank Marmor) 

Auf einem großen Gelände sind Punkte und Hl ndern I «bl deke 
verstreut. Sie müssen taktisch geschickt Ihre Gegner hinter 
diese Hindernisse locken um Punkte zu sammeln und den Computer 
zu frusten ? Gehe Imschätxe bringen Punkte, können Ihnen aber 
auch da« Leben schwer machen. Sie können zwischen drei 
Sp I e I ver «I onen mit Jeweils drei Schwl er I gke i t sgr ad»n wählen. 
Auf Wunsch verrät Ihnen der Autor gerne einige strategische 
Tips, wie Sie den Computer frusten können. 

Art. 069 SeS 39.- DM 


M.A.D. (Missile Attack and Defense) 

Wieder ein tolles Video-Actlon Spiel i Verteidigen Sie ein» 

Stadt gegen her abf a I I ende Raketen. Das bekannte Telespiel in 
einer Colour-Genle Version mit ü ber aschender Grafik. Trotz der 
her vorr agenden Qualität haben wir es geschafft, dieses Spiel zu 
einem ungewöhnlich niedrigen Preis anzubletrn. 

(St. Sicurella) Art. I I 7 deS 29.- DM 


W 
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3320 GOTO 1950 

3330 PRINT-WÜLLEN SIE DIE VOKABELN ABSAVEN ? <J/N>"? 

3340 A*~ INKEY* 

3350 IFA*="3 "THEN33B0 

3360 IFA$="N"THENCLS: GOTO I960 

3370 GOTO 3340 

3380 CLS : PR INT "ST ARTE DEN REKORDER, DANN DRUECKE RETURN" 

3390 A*= INKEY* 

3400 IFA*=" "THEN3390 
3410 PRINT#— 1 , VOK 
3420 PRINT039, 

3430 PRINTQ39," " 

3440 F0RG0G-0T050 

3450 NEXTGOG 

3460 F0RA=1T0V0K 

3470 PRINT#-1, AUS* (A> , DEU$(A> 

3480 NEXTA 
3490 CLS 
3500 GOTO 1950 

3510 CLS: PRINT" WEITERMACHEN <1) NOCHMAL STARTEN 

(2) ALLES LOESCHEN (3) BASIC 

PROGRAMM LADEN <4) MASCHINENSPRACHEPROGRAMM LADEN (5) " 

3520 A*« INKEY* 

3530 I FA*= " 1 " THENCLS : GOTO 1 950 
3540 IFA*="2"THENRUN 
3550 I F A*= " 3 " THENC ALLOOOO 
3560 IFA*=" 4" THENCLS: CLO AD 
3570 IFA*-- "5" THENCLS: SYSTEM 
3580 G0T03520 
3590 ONERRDRGOTO 1 60 
3600 CLS 

3610 F0RGUG=0T01 00 
3620 NBGRD 
3630 BGRD 
3640 NBGRD 

3650 PLAY ( 1 , RND ( 8 ) , RND (12) , 15) 

3660 NEXTGUG 
3670 PLAY (1,4, 4,0) 

3680 PRINT 
3690 PRINT 
3700 PRINT 

3710 PR INT” ES IST EIN FEHLER AUFGETRETEN ! ! ! " 

3720 PRINT-DU HAST WAHRSCHEINLICH EINE ZU GROSSE" 

3730 PRINT-ZAHL ODER EIN ZU LANGES WORT EINGEGEBEN."; 

3740 A*= INKEY* 

3750 IFA*< >" "THENRUNELSE374Ö 



Bei jeder Ausgabe drei Zeilen kostenlos inserieren 1 1 ! 


Also: Füllen Sie die eingeheftete Bestellkarte aus, und sichern Sie sich Ihr persön- 
liches GENIE DATA Abonnement I 


Absender: 


Absender: 


Name 


Straße 


(PLZ) Ort 

Für private Abonnenten der GENIE DATA 
sind die ersten drei Zeilen der Kleinanzeige 
kostenlos. 

Jede weitere Zeile 5,50 DM 

Private Kleinanzeigen pro Zeile 6,00 DM 

Geschäftliche Kleinanzeigen 
pro Zeile 7,50 DM 

Chiffre Gebühr 9.00 DM 

Alle oben angegebenen Preise werden 
Ihnen zuzüglich der gesetzlichen MWSt, 
berechnet. Der Betrag ist sofort nach 
Erhalt der Rechnung rein netto zahl- 
bar. 

II 1/84 


Absender: 


Name 


Straße 


POSTKARTE 


Bitte 

freimachen 


(PLZ) 


An 

HEINZ HÜBBEN 
Offsetdruckerei / Verlag 
Mühlbachstraße 2 
D-5429 MARIEN FE LS/Taunus 


POSTKARTE 


Bitte 

freiraachen 


Absender: 


Name 


Straße 


Ort 


Name 


Straße 


POSTKARTE 


Bitte 

(reimachen 


An 

HEINZ HÜBBEN 
Offsetdruckerei / Verlag 
Mühlbachstraße 2 


Hl/84 


D-5429 MARI EN FE LS/Taunus 


POSTKARTE 


Bitte 

freimachen 


(PLZ) Ort 


An 

HEINZ HÜBBEN 
Offsetdruckerei / Verlag 
Mühlbachstraße 2 
D-5429 MARIENFELS/Taunus 


(PLZ) Ort 


Firma 


Straße 


Ptz Ort 


«1/84 










Hiermit bestelle ich Abonnement(s) der Zeitschrift 

GENIE DATA. 

Mir ist bekannt, daß ich das Abonnement zu federn Quartal, 
jeweils 6 Wochen vor Quartalsende, kündigen kann. 

Der Bezugspreis beträgt innerhalb der BRD nur DM 59,40, 
pro Abonnement, (Sechs Ausgaben) frei Haus, 

Die Bezugsdauer verlängert sich nach Ablauf eines Jahres um 
weitere 12 Monate, solange bis das Abonnement gekündigt 
wird .- 

Mit obigen Bedingungen erkläre ich mich Einverstanden: 


Unterschrift : Datum : 

Bei Jugendlichen unter 18 Jahren, Unterschrift eines 
Erziehungsberechtigten ! 


GENEHM KONTAKT-KARTE 

Ihr Inserat in der GENIE DATA Nr. hat meine Beachtung 

gefunden. 

Hiermit bestel le ich zur schnellstmöglichen Lieferung: 


Unterschrift : Doturn : 

Bei Jugendlichen unter 18 Jahren, Unterschrift eines 
Erziehungsberechtigten . 



KLEI N-ANZEI GEN-BESTELLUNG 


Bitte veröffentlichen Sie nachstehenden Text in der 
nächsten Ausgabe von GENIE DATA unter der Rubrik 
Kleinanzeigen. 

Bei ABONNENTEN unbedingt ABONNENT hin schreiben 
SONST ERFOLGT RECHNUNG ! 


Unterschrift Datum 

Mit meiner Unterschrift versichere ich, keine urheber- 
rechtlichen Bestimmungen zu verletzen. 



Reservieren Sie uns bitte angekreuzten Platz für ein Inserat 
zum Erscheinen in der nächsten GENIE DATA. Unsere Satz- 
vorlage, bzw. Film, geht Ihnen umgehend zu. 


O 1/1 Seite O 1/8 

O 1/2 Seite O Wir 

O 1/3 Seite O Bitte 

O 1/4 Seife Ihre t 
GENIE DATA 

O WER-WAS-WO-Einkaufsführer 
Inseratgrößo 55x45 mm DM 55,- + 14% MWSt, 
abzüglich 10% Rabatt für 6x Erscheinen. 
Satzkosten für 4 Zeilen einmalig DM 15,- 

Jado woitore Zoilo Satz kostet DM 7.50 


O 1/8 Seite 

O Wir sind interessiert an Kleinanzeigen 
O Bitte, senden Sie uns 

Ihre Anzeigenpreisliste zu ! 


O Neusatz muß 
von Ihnen 
erstel It werden ! 


Unterschrift 
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Ulrich Groke 


T>imKicA 


! Mensch ärgere dich nicht für das 

Colour Genie. Da sich dieses Pro- 
gramm komplett selbst erklärt, 
wollen wir uns hier auch nicht lan- 
ge mit einer Vorrede aufhalten, 
nur vielleicht kurz dazu, was es 

50 CL5: LGR: C0LÜUR2: CLEAR 74 alles kann. 

51 FKEY1 = "RUN Das Programm stellt in an- 

52 FKEY2="RUN sprechenderweise ein Spielbrett 

53 FK£Y3="RUN auf dem Monitor dar. Man kann 

54 FKEY4= "RUN nun mit bis zu vier Spielern spie- 

55 FKEY5="RUN len, oder man kann einen oder 

56 FKEY6="RUN mehrere Spieler durch den Com- 

57 FKEY8="NEW puter simulieren lassen. Besonders 

56 DIM FA (4) , Pi* (4) , A* <4> , S5 (4) interessant ist es, wenn der Com- 

59 PI $ ( 1 ) = " 1 “ : Pl*.<2> = "2" : PI* (3) = “3" : PI* (4 > = *'4" puter al le Spieler übernimmt, und 

60 FA ( 1 > =3: FA <2> =1 : FA <3) =6: FA (4) =2 alleine spielt. 

61 S5 ( 1 ) =161 ! S5 (2) =197: S5 (3) =757: S5 (4) =721 

62 DIM Z<4),Z1 (4) , Y2 (4, 4) , X <56, 2) , Y <4, 4) , Y1 <4, 4) , S (4) 

63 DIM Bl* <4, 4) 

64 DATA857, 777, 697,617,537,535, 533, 531 , 529, 449,369, 371 , 373,375, 377, 297 
,217,137, 057 , 059 , 06 1 , 1 4 1 , 22 1 , 301 , 3B 1 , 383 , 3S5 , 387 , 389 , 469 , 549 , 547 , 545 , 5 
43,541,621 ,701,781,861,859,779,699,619,539,451,453,455,457, 139,219,299 
,379,467,465,463,461 

65 DATA049, 051 , 129, 131,067, 069, 147, 149,787,789,867,869,769,771,849,851 

66 C-0 

67 DIM Fl (4) 

68 GOTO 313 

69 CLS: LGR : GOSUB 98 

70 GOTO 99 

7 1 DATAÜOO , 000 , 000 , 007 ,015, 028 , 024 , 024 

72 DAT AOOO , 000 , 000 , 224 ,240 , 056 , 024 , 024 

73 DATA024 , 024 , 028 ,015, 007 , 000 , 000 , 000 

74 DATA024, 024, 056, 240, 224,000, 000,000 

75 DATA 128, 064, 032, 032, 032, 032, 064, 128 

76 DATA129, 066, 060, 000, 000, 000, 000, 000 

77 D AT AOO 1 , 002 , 004 , 004 , 004 ,004,002, 00 1 

78 DAT AOOO, 000, 000,000,000, 060, 066, 129 

79 DATA 129, 066, 060, 000, 000, 060, 066, 129 

80 DAT Al 29, 066, 036, 036, 036, 036, 066, 129 

81 DATA 129, 066, 060, 060, 060, 060,066, 129 

82 DATA 129, 066, 060,060, 060,060, 066, 129 

83 DAT AOOO , 000 , 000 , 000 , 000 ,001,003, 007 

84 DAT AOOO, 000,000, 000,000, 128, 192, 224 

85 DATA224, 192,128, 000, 000, 000, 000, 000 

86 DATA007 , 003 ,001, 000 , 000 , 000 , 000 , 000 

87 DATA007 , 003, 001 , 000, 000,001, 003, 007 
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aß DAT AÖOO > 000 000 » 00 0 » 000 - 1 29 , 1 95 , 23 1 

89 DATA224 , 1 92 , 1 28 , 000 , 000 - 128- 1 92 , 224 

90 DAT A23 1,185,129, 000 , 000 , 000 , 000 - 000 

9 1 DAT Ao6S , O , 1 20 , 0o4 - i_>60 , 068 , 080 - 000 

92 DAT A06S - 000 , 068, 068 , 068, 068 , 060 • 000 

93 DAT AOO 1 , 003 , 006 -012, 024 , 048 , 096 , 1 92 

94 DATA 1 28 , 1 92 , 096 , 048 , 024 , 0 1 2 , 006 , 003 

95 DATA 192, 096, 048, 024,012- 006, 003,001 

96 DATA003, 006, 012, 024, 048, 096, 192, 128 

97 DATA06S , 000 , 056 , 068 , 068 , 068 , 056 , 000 

98 CHAR2; F0RA7.-.3.HF40OTÜ6HF4II7 : READB7, : P0KEA7., B7. s NE KT : RETURN 

99 CL5: C0LÜUR4: PRINT044, "-*• Mensch " 3 CHR* : 1 48» " “rsere Dich nicht 

100 CQLGUR3: PR1NT@120, "geschrieben von Ulrich Groke , D" ? CHR$ < 1 49 • ? "re 
n" 

1 0 1 C0LDUR2 * PR I NTS292 » " SR I EL ANWE 1 5.ÜNG " 

1 02 CDL0UR3S PR I NT 03 3 2 , 

103 C0L0UR4 s PRINTS400, " So lelereingabe" : PRINT"0 BUCHSTABEN = Spieler w 
ird " 3 CHR* ( 149) 3 "bersangen " : PRINT" .1 BUCHSTABE = Computer spielt' 

104 PRINT" NAME = maximal 6 Buchstaben “ a PRINT* PRINT"Es m" = CHR* 

(149);"ssen Namen mit verschiedenen An+ ansangsbuchst.aben gew";CH 

R* ( 1 48 ') " " h 1 1 werden - " 

105 PRINT: PRINT" W" » CHR* ( l 49 ) 3 "rf ein m it der Leertaste 

106 PRINT: RR INT "Set:: er. der Figur rr.it den Zahle :L - 4" 

107 CDLQUR6: FRINTS927, " Wei ter mit der Leertaste": 

108 A*=INKEY*: IFA*<>" " THEM 108 ELSE 110 

109 REM HIER BEGINNT DER ROTTEIL 

110 G0SUB442* CLSs C0L0UR3: PRINT09, CHR* ( .1 35) : " "s CHR* < 135 ' 

111 PRINT@48*CHR*<134> 5 " " * CHR* ( 137) ? " "? CHR* (132) 

1 1 2 PR I NT @09 , CHR* <136) ? " " s CHR* <136; ^ 

113 PR INT@J 28, CHR* i 134) 3 " " 3 CHR* < 137) 3 " "?CHR*<i32) 

114 PRINTS 169? CHR* < 133) 5 " "5 CHR* (133) 

115 PRINTS410, CHR$ < 140) s " “ 3 CHR* i 145) 5 " " 3. CHR* <145) " 3 CHR* i 145) 

116 PRINT@450,CHR* (139) 3 " " 5 CHR* ( 1 39) 5 " " 3 CHR* (139) ; " " 3 CriR* (139) 5 " 
EHR* (132) 

117 PRINTS 490, CHR* < 143) 5 " 11 5 CHR* ( 147) ? " " : CHRi.<147) 3 " "dXHR* < 147) 

118 PR I NT @329 , CHR* ( 1 35 ) 

119 PRINT@368, CHR* ( 1 34) 

120 REM HIER BEGINNT DER WEISSTE EL 

121 C0L0UR1 s PRINTS21 , CHR* (135) 3 " * CHR* <135) J " " : CHR* « 135) 

122 PRINT062, CHR* ( 132) 3 " " > CHR* (Ol 34) 3 " '* 3 CHR* '< 137) "?CHR*(132> 

123 PRINT@98,CHR*a40) 3CHR*(13'8>'3CHR*U4l) 3" " 3 CHR* < 136) 5 " " s CHR* 

(136) 

124 PRINTS146, CHR* < 134) 5 " " 3 CHR* < 1 37) 3 " "SEHR* (132) 

125 PRINTS17B, CHR* < 144) 5 CHR* < 138)5 CHR* < 146) ; " " 3 CHR* < 1 33) 3 " " 5 CHR 

$ < 133) 

126 PRINTS25B, CHR* ( 144) 3 CHR* (138) * CHR* (146) 

127 PRINT@338,CHR* (144) 5 CHR* (138) 5 CHR* (146) 

1 28 PR I NT @4 1 9, CHR* < 1 33 ) 

129 REM HIER BEGINNT DER BLAUTEIL 

130 C0L0UR6: PRINTS422, CHR* (145)3" " 3 CHR* ( 145) 3 " " 5 CHR* (1 45) 3 " "5CHR*(1 
41) 


131 PR I NT@46Ö, CHR* ( 1 34) 
CHR* (139) 

132 PRINTQ502, CHR* (147) 

133 PR INT @550, CHR* ( 132) 

134 PRINT@747 , CHR* ( 135) 

1 35 PR I NT @786 , CHR* (134) 

136 F'RINT@827, CHR* ( 136) 

137 PRINTS866, CHR* ( 134) 

138 F'RINT@907, CHR* ( 133) 


"3 CHR* (139) 


" 3 CHR* (139) 3 " "3 CHR* (139) 


" " 3 CHR* ( 1 47) 3 " " 3 CHR* ( 1 47 ) 
PRINTS589 , CHR* ( 1 33) 

" "3 CHR* (135) 


"3 CHR* (137) 
"5 CHR* (136) 
"3 CHR* (137) 
"3 CHR* (133) 


"3 CHR* (142) 


"CHR* (132) 


CHR* (132) 
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139 REM HIER BEGINNT DER GRUENTEIL 

140 COLOUR2: PRINT@499» CHR* ( 135) : PRINTS57B, CHR* ( 1 44) ; CHR* (138) ; CHR* <146 

) 

141 PRINT@653? CHR* ( 144) ; CHR* < 138) ? CHR* < 146) 


142 PRINT@729,CHR*(135) 5 " " 5 CHR* ( 135) ; 
* (146) 

143 F'RINT@768> CHR* ( 134) ? " 

144 PRINT@786.-CHR$ (134) ; " 

145 PRINTHB09, CHR* ( 136) ? " 

* (142) 

146 PRINT0848? CHR* ( 134) ? " 

147 PRINT@889,CHR$(133) 5 " 


" 5 CHR* (144); CHR* ( 1 38 ) ; CHR 


"5 CHR* (137) 
" ; CHR* (137) 
" " CHR* ( 136) 


" ; CHR* ( 132? 

"• CHR* (132) 

"5 CHR* (143) 


" ? CHR* (132) ? " 

CHR* (133) 


; CHR* ( 138) 5 CHR 
CHR* (134) 


CHR* (132) 

CHR* ( 132) 

" j CHR* (148) ? " 


"5 CHR* (137) 

"S CHR* (133) 

148 C0L0UR4: PRINT@1 7 t CHR* ( 1 35) ' " CHR* (135) 

149 PRINT@56j CHR* ( 134) ; " " 5 CHR* ( 139) 5 " ,, ;CHR*(139) 

150 PRINT@97> CHR* ( 138) : PRINTS101 , CHR* ( 138) 

151 PRINTS 136t CHR* ( 134) ; " “ ; CHR* ( 137) ; " " ;CHR$ ( 137) ? " " 

152 PRINTS 177t CHR* ( 138) : PRINTS181 , CHR* ( 138) 

153 PRINT@216tCHR* (134) 5 " " 5 CHR* ( 137) 5 " " ? CHR* ( 137) 5 " " 

154 PRINTS249, "Mensch "CHR* ( 138) •* PRINT0261 , CHR* ( 138) ; " 
rgere" 

155 PR I NTS296 t CHR* (134) ; CHR* ( 137) 5 " "SCHR*< 137) J " "? CHR* (132) 

156 PRINTS331 t CHR* ( 135) ; " " 5 CHR* ( 135) 5 " " ; CHR* ( 135) 5 " " s CHR* ( 138) : PRIN 
T@341 ,i CHR* ( 138) ’ " " 5 CHR* ( 135) ? " " 5 CHR* (135) ? " " 5 CHR* (135);" ";CHR*(135 
) 

157 F'RINT@370t CHR* ( 1 39) ? " “ 5 CHR* ( 139) 5 " " % CHR* ( 139) j " " ; CHR* ( 1 39) ? " “ ? 
CHR* (137);" "? CHR* ( 137) ; " " s CHR* ( 139) ; " " ; CHR* ( 139) 5 " " s CHR* ( 139) ; " 
CHR* (139) 5" "? CHR* (132) 

158 PR I NTS409 > CHR* ( 1 38 ) : PRINTS41 1 CHR* ( 136) 

4 1 5 t CHR* (1 36 ) : PR I NT@4 1 7 , CHR* (136): PR I NT@42 1 .< CHR* (136): PR I NTS423 , CHR* ( 1 
36 ) : PR I NTS425 » CHR* ( 1 36 ) : PR I NTS427 t CHR* (136) 

159 PRINT@448tCHR* (134) : PRINT@470> CHR* < 132) 

160 PRINTS489.-. CHR* ( 138) : PRINTS491 , CHR* < 136) 

495t CHR* (136) ff PRTNTS497, CHR* ( 136) : PRINTS501 » CHR* (136) : PRINTS503.- CHR* ( 1 
36 ) : PR I NT @505 t CHR* ( 136): PR I NTS507 t CHR* (136) : PR I NTS509 > CHR* (138) 

161 PRINT@528t CHR* (134)5" "? CHR* (139) ; " " ; CHR* ( 1 39) ; " " ; CHR* < 139) ? " 
CHR* ( 139) 5 " " 5 CHR* ( 137 > 3 " "S CHR* (137) 5 " "5 CHR* (139) 5 " " ? CHR* ( 139) ; " 
CHR* (139) ; " " ; CHR* (139) 

162 PRINT@569t CHR* ( 133) ? " " ? CHR* (133);" " ; CHR* ( 133) 5 " " 5 CHR* ( 133) s " " 
CHR* (138 > : PRINT @58 1 , CHR* (138) ? " " 5 CHR* ( 133) ; " " ; CHR* ( 133) 5 " "5 CHR* (13 
) 

163 F'RINT@61 6t CHR* ( 1 34 ) ; " " s CHR* ( 137) ? " " ? CHR* ( 137) 5 " "?CHR$(132) 

164 PRINT@649t "D ich " ; CHR* ( 138) : PRINT@661 , CHR* ( 13B) 5 " nicht" 


PRINT@413t CHR* ( 136) : PRINTS 
CHR* (136): PR I NT@423 
PR I NT@429 t CHR* (138) 

PR I NT@493 , CHR* < 1 36 > : PR I NT@ 


II ■ 


165 PRINTG696» CHR* ( 134) 5 " " 5 CHR* ( 137) Ü " " ; CHR* ( 137) 5 " 

166 PR I NT @737 t CHR* ( 1 38 ) : PRINT@741 , CHR* ( 138) 

167 PRINT@776t CHR* ( 134) ; " " ; CHR* < 137) ; " "* CHR* (137) ? " 

168 PRINTS817» CHR* (138) : PRINT@B21 t CHR* ( 138) 


"■CHR* (132) 
"? CHR* (132) 


"5 CHR* (139) ? " 
CHR* (133) 


169 PRINT@858tCHR$(139) ? " 

170 F'RINT@899t CHR* ( 133) s " 

171 GOSUB 236 

172 GOTO 320 

173 PRINT@272t" 

174 IF S(J)=1 THEN PRINTS272? "COMP. " 5 Bl* ( J > 1 ) 

175 IF S(J)>1 THEN PRINT@272t A$ ( J ) 

176 A=PEEK (-1984) : IF A=128 THEN 186 ELSE 

177 IF A=24 THEN S ( J > =2: PRINT0S5 ( 3 > 

J ) , " " 

178 IF A=96 THEN S ( J > =1 : PRINT0S5 ( J ) 


CHR* (132) 


177 

"H": IF LEN ( A$ (J) ) >1 


"C": IF LEN ( A* ( J ) )=1 


THEN PRINTSS5 ( 
THEN PRINTSS5 ( 


J > T " " 

179 IF 

180 IF 


J = 1 THEN F‘RINT@90? : PLAY (1>3t 1?7) : IFS ( 1 ) =1 THEN 186 
J—2 THEN PRINT@108t : PLAY ( 1 , 4, 1t 7) : IFS (2) =1THEN186 
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1B1 IF J=3 THEN PRINTIÜB28, : PLAY ( 1 5, 1 , 7) : IFS (3) =1THEN186 

182 IF J=4 THEN PRINT081O, "• PLAY ( 1 , 6, 1 , 7) : IFS (4) =1THEN186 

1B3 FÜRA=1TD1Ö! NEXTA 

184 PRINT690, " " : PRINTÖ1Ö8, " " : PRINT©828, " " : PRINTS810, " " 

185 PLAY ( 1, 1, 1,0) : GOTO 176 

186 PRINT©90, " " : PRINTS 108? " " : PRINT8828, " " : PRINTSB10, " " : PLAY < 1 , 1 , 1 , 
0) : COLOUR FA <J) 

167 PR I NT @352 , CHR$ < 1 50 ) % “ !! CHR$ ( 151 ) 

188 PRINT@392, "I ♦ ♦ »" 

189 PRINTS432, "I I" 

190 PRINTS472, "1 4* i" 

191 PRINTÖ512, "1 I" 

192 PRINT0552, "• ♦ ♦ l“ 

193 PRINT0592, CHR$ < 152) S 11 " 5 CHR* <153) 

194 FÜRA1=1TD3 

195 COLOUR FA(J) :FDRA=1TD10 sNEXT A 

196 PRINTQ473, "♦ ♦" 

197 F0RA=1T010: NEXTA 
19B PRINT©473, " 

199 FORA* 1T0 10: NEXTA 

200 PRINTQ393» "♦ " ^ 

201 PRINT0553» " *” 

202 FORA= 1 TO 1 0 : NEXTA ■ - , 

203 PRINTS473? " ♦ ■' 

204 F0RA=lT01ö: NEXTA 

205 PR INT ©393, " 

206 PRINTS553, '* " 'v'"-*' 

207 F0RA=1T010: NEXTA 

208 NEXTA 1 

209 W=RND<6) 

210 ON W GOSUB 212,216,220,224,228,232 

211 RETURN 

212 PRINTS393, " " L - 

213 PRINTS473, " * •• v? 

214 PRINTS553, " 

215 RETURN 

216 PRINT0393, "♦ 

217 PRINT0473, " 


218 PRINTÖ553, '* ♦" 

219 RETURN 

220 PRINTS393, "♦ 

221 F‘R INT©473, " * “ 

222 PRINTQ553, " ♦" 

223 RETURN 

224 PRINT0393, "♦ ♦" 

225 PRINT©473, " 


226 PRINTS553, "♦ ♦" 

227 RETURN 

228 PRINTQ393, "♦ ♦" 

229 PRINT0473, " * " 

230 F'RINT©553, "♦ ♦" 

231 RETURN 

232 F'RINT@393, "* 

233 F‘RINT©473, ”♦ 

234 PRINT©553, ♦" 

235 RETURN 

236 C0L0UR3 : PR I NT©40 , CHR$ ( 1 28 ) 5 " “ 5 CHR$ (129) 

237 PRINTS80, " I I" 

238 PRINT© 120, CHR$ ( 130) 5 " N ;CHR*<131) 

239 COLOUR 1 : PR I NT©7 1 , CHR* < 1 28 ) 5 " “ 5 CHR$ ( 1 29 ) 
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240 PRINTSlll, “ l I“ 

241 PR I NTfi 1 5 1 » CHRi < 1 30 ) % " " ü CHRi ( 131 ) 

242 CDLDUR2 : PR 1 NT@76Ö» CHRi < 1 2S ) ? " "5 CHRi (12?) 

243 PRINTSB00, " l «" 

244 PRINT8840,CHRS (130) ' *' " 5 CHRi ( 131) 

245 C0L0UR6S PRINTS791 ? CHRi ( 128) ? " CHRi ( 1 29) 

246 PRINTS831, ” I 1" 

247 PRINT@S71,CHRi(130> ? " "s CHRi < 131 > 

248 C0L0UR3: PRINTS363» " 1 . " 

249 PRINT8440’ "SPIELER" SPRINT 

250 INPUT Al S 

251 Ai(l)=LERTi(Al$,6) 

252 S; l>=LENGfili) : L4~S (1 ) s GD5UB445 

253 BliCl, l)=LEFTi(A.L$, 1) 

254 Bli(l,2)*Bli(l, l>sBli(l,3>=Bli(l,l):Bli(l,4)=BliU, 1) 

255 I F 5 ( 1 > = 1 THEN PR I NT 88 1 , " COMP . " s Ai <1 ) 

256 IF 5(1)21 THEN PRINTSSI > A* ( 1 ) 

257 PRINT@49r.Bli CI, 1) 

258 PR I NTS5 1 , B 1 i < 1 , 2 ) 

259 PR I NT@ 1 29 , B 1 $ ( 1 , 3 ) 

260 PRINT@13ir.Bli (1,4) 

261 PRINTS52Ö, " 

262 CüLOURl : PRINT0363, "2. '* 

263 PR I MT 8 4 40 , " BP I ELER " : PR I NT 

264 INPUTA2i 

265 Ai(2>*LEFTi(A2i,6> 

266 3(2) =LEN ( A2S ) :L4=5<2) : GGSUB445 

267 Bli<2, l)=LEFTi(A2i, 1; 

268 IF Bü<2, 1>«"" THEN 270 

269 IFßli (2, 1 >=Bli (1 , 1 ) THENG0BUB436: GDTD261 

270 Bli <2, 2) =Bli <2, 1 ) sßli(2> 3)=Bli<2, 1) s Bli<2» 4) =Bli (2, 1) 

271 IFS ( 2) - 1 THENPRI NT@1 12p "COMP. "?A i<2) 

272 IFS<2> >1THENPRINT01 12, Ai (2) 

273 PRJÜT@67,Bli(2,l> 

274 PR I NT @69 , B 1 i ( 2 , 2 ) 

275 PR I NT® 1 479 B 1 $ < 2 , 3 ) 

276 PRINTS149, Bli (2, 4) 

277 PRINT8520," 

278 C0L0UR6; PR I NT0363, "3. " 

279 PRINT044O , "SPIELER" : PRI MT 

280 INPUT A3i 

281 Ai(3)=LEFTi(A3i,6) 

282 5(3) =LEN ( A3i ) :L4=S(3) i GDSUB445 

2B3 . Bli(3, l)=LEFTi(A3$, 1) - • ■ ■ 

284 IF Bl i (3, 1 ) =" " THEN 288 

255 IF Bli (3, 1)=BÜ(1, 1>0RBÜ<3, 1 ) =Bli<2, 1 ) THENG0SUB436: G0TQ277 

286 IF3 (3) =1 THENPRI NT@832, "COMP. ";Ai(3) 

287 I FS ( 3) > 1 TH EN PR I NTS832 ,Ai(3> 

288 Bli(3.-2)=Bli(3, 1> : Bli <3, 3) =BÜ (3, 1) : Bl i (3, 4) =Bli (3, 1) 

289 PRINT@7B7,Bli(3, 1) 

290 PRINT@789,Bli(3,2> 

291 PRINT@867,Bli(3,3) 

292 PRINT@B69,Bli<3,4> 

293 PRINTS520, " 

294 C0L0UR2S PRINT0363, "4. " 

295 PR1NTS440, "SPIELER" : PRINT 

296 INPUT A4i 

297 Ai(4)=LEFTi(A4i,6> 

298 S (4) =LEN ( A4i) : L4=S (4) : G0SUB445 

299 Bü(4, l)=LEFTi(A4i, 1) 
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300 IF Bl* (4s. 1)="" THEN 302 

301 IF Bl* (4* 1 )=B1* < 1 > 1>ÜRB1*(4, 1>=B1* <2.- 1 >0RB1*(4, 1)=B1*(3, 1 > THENGOSU 
B436S G0T0293 

302 Bl* <4* 2) =81* <4, 1) : Bl* <4.- 3> =B1* (4, 1) : Bl* <4, 4) =B1* <4, 1) 

303 I FS ( 4 ) = 1 THENPR I NTS 8 G 1 > ” COMP . “ ; A* (4) 

304 IFS (4) > 1 THENPR INTOBO ln A*(4) 

305 F'RINT@769,B1*(4, 1) 

306 PRINT@771 >B1*(4?2) 

307 F'RINT@B49j Bl* (4? 3) 

308 PRINTSB51 ? Bl* (4? 4) 

309 PRINT@363," " 

310 PR I NT@440> " 

311 PRINT@520> " 

312 RETURN 

313 RESTORE 

314 E=Ö 

315 FOR 1 = 1 TO 56: X (Ir 2) =0: READ X <1 , 1 ) s NEXT I 

316 FOR 1=1 TO 4: FOR J=1 TO 4 

317 READ Y(I, J)*Y 1 <I» J)=Y(In J> »NEXT JsNEXT I 

318 FOR J=1 TO 4: FOR 1 = 1 TO 4: Y2 ( J , I > =-I : NEXT HNEXT J 

319 GOTO 69 

320 FOR J = 1 TO 4 

321 COLOUR FA ( J ) 

322 FOR I=1T0 30: H1=X ( I , 1 > : H2=X < I , 2) 

323 Xd, l)=Xd + 10, 1) :X<I»2)=X< 1+10,2) 

324 Xd + 10, l)=Hl:X(I+10r2)=H2:NEXT I 

325 FOR 1=41 TO 52 

326 H1=X<I, 1) :H2=X(I,2) 

327 X(I ? l)*X(I+4, 1) sX(I,2)*X(I+4,2) 

328 Xd+4. l)=Hl:X(I+4,2)=H2:NEXT I 

329 IF 5 ( J ) =0 THEN 341 " 

330 GOBUB 342 

331 K-0: FOR 1 = 1 TO 4: IF Y2 < J , I ) >40 THEN K=K+1 

332 NEXT I ; ' ?•' 

333 IF K=4 THEN 335 ' 

334 GOTO 338 . 

335 E=E+l*PRINT@240+E*80,Es " . =" ? Bl * ( J ? 1 ) 

336 PRINT@910+E*10,E5 "="5 A*(J) 5 

337 S(J)=0 

338 K=Os FOR 1=1 TO 4: IF S ( I ) =0 THEN K-K+l 

339 NEXT I 

340 IF K=4 THEN FOR A= 1T02500: NEXT A: RUN 10 

341 NEXT J : GOTO 320 

342 K=0: FOR 1=1 TO 4: IF Y( J, I) =Y1 < J, I > THEN K=K+1 

343 NEXT I : Wl= 1 

344 Kl— K: FOR 1=1 TO 4: IF Y2(J,I)>40 THEN K1=K1+1 

345 NEXT I 

346 FOR I=1T04:IF Y2(J,I)<0 THEN 348 

347 NEXT I 

348 K3=I 

349 K2=0 

350 GOSUB 173: W1=W1+1 

351 IF K=0 THEN 380 

352 COLOUR FA(J):IF W =6 THEN 358 

353 IF K2= 1 THEN 367 

354 IF Kl =4 THEN 356 

355 GOTO 380 

356 IF Wl=4 THEN RETURN 

357 GOTO 350 

358 IF K=0 THEN 380 
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359 IF X(1,2)=J THEN 367 

360 IF X ( 1 , 2 ) =0 THEN 366 

361 12=1-- (X(l ,2>-J> *lü: IF I2<=0 THEN 12=12+40 

362 IF 12 >40 THEN 12=12-40 

363 FOR 13=1 TO 4: IF Y2 (X ( 1 , 2) * I3> =12 THEN 365 

364 NEXT 13 

365 Y ( X ( 1 2 ) , 13) =Y 1 (X(i,2> > 13) : Y2 (X ( 1 , 2) , 13) =-I3: G0SUB436: PRINT0Y <X ( 1 , 
2) , 13) ,B1*(X<1>2> , 13) 

366 K2= 1 : X ( 1 > 2 ) = J s Y ( «I ? K3) =X ( 1 ? 1 > : Y2 ( J ? K3 ) = 1 • PR I NT@Y ( J , K3 ) ? Bl $ ( J ? K3 ) : PR 
INT0Y1 (J,K3) > " •' :GOTO 350 

367 IF K=1 THEN 369 

368 GOTO 370 \ 

369 K=K-1 : GOTO 380 

370 IF X ( 1 +Wj 2) =D THEN 377 

371 IF X(1+W,2)=J THEN 380 

372 12= < 1+W) - <X < 1+Wj 2> -J ) *10! IF I2<=0 THEN 12=12+40 

373 IF 12 >40 THEN 12=12-40 

374 FOR 13=1 TO 4: IF Y2 (X < 1+W> 2) , 13) =12 THEN 376 

375 NEXT 13 

376 Y(X(1+W,2) , 13) =Y 1 (Xd+W.2) , 13) :Y2(X(1+W,2) , 13) =-I3: G0SUB436: PRINT0 
Y (X ( 1 +Wj 2) , 13) ,B1*(X(1+W,2) , 13) 

377 X(1+W,2)=J:Y(J,K3)=X(1+W, 1) SY2<J»K3)=1+W:PRINT@Y(J,K3) ,B1$(J ? K3) 
37B X ( 1 ? 2) =0s FRINTSX ( 1 » 1 ) j " ” : I F W=6 THEN 342 

379 RETURN 

380 16=0: FOR I5=1T04: Z ( 15) =0 

381 IF Y2 (Jj 15) +W>44 THEN 385 
3B2 IF Y2 (J, 15) <0 THEN 385 

383 IF X(Y2(J, I5)+W,2)=J THEN 385 
3B4 16=16+1: Z (I6)=I5 

385 NEXT 15 

386 IF 16=0 THEN 402 

387 IF S ( J > = 1 THEN 401 
3BB FOR 15 = 1 TO 16 

389 PRINT©X(Y2(J,Z <I5> ) > 1 ) ,P1* (Z < 15) ) 

390 P2=J+2s PLAY (1 , P2, 1 , 10) 

391 NEXT 15 

392 B=PEEK ( -2032) 

393 FOR 15 = 1 TO 16 

394 PRINT@X(Y2(J,Z (15) ) , 1) , " " 

395 PLAY (1, 1, 1,0) 

396 IF B=2CZ (15) THEN I 1=Z ( 15) : GOTO 39B 

397 NEXT 15: GOTO 388 

398 FOR 15=1 TO 16 

399 PRINTSX ( Y2 ( J , Z ( 15) ) , 1 ) , B 1 * ( J , Z ( 15) ) 

400 NEXT 15 

401 GOTO 404 

402 IF W=6 THEN 350 

403 RETURN 

404 IF 16=1 THEN 409 

405 IF S(J)<>1 THEN 410 

406 I 1=Z ( 1 > : FOR 15=2 TO 16 

407 IF Y2(J, Z (15) ) >Y2(J, II) THEN I1=Z(I5) 

408 NEXT 15: GOTO 410 

409 I1=Z (16) :GOTO 427 

410 IF K=0 THEN 417 

411 18=0 

412 FOR 15=1 TO 16: IF Y2(J,I5)=1 THEN I8=Z(I5) 

413 NEXT 15 

414 IF 18=0 THEN 417 

415 IF 18=11 THEN 427 
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416 GOTD 426 

417 17=0: FÜR 15=1 TO 16: Zl( 15) =0 
416 IF )<(Y2 (JjZ(I5> > + W 7 2 ) =0 THEN 420 

419 17=17+1: Zl< 17) =7.(15) 

420 NEXT 15 

421 IF 17=0 THEN 427 

422 IF S(J)=1 AND I7>0 THEN I 1=Z 1< 17) : GOTO 427 

423 FOR 15=1 TO 17: IF I1=Z1(I5> THEN 427 

424 NEXT 15 

425 I B=Z 1 (RND (17) ) 

426 X (Y2(J, 18) ,2)=0: Y(J, I8)=Y1(J, IS) : G0SUB43B : PR I NTiüY ( J , IB) , Bl* < 18) * 

PRINT@X(Y2(J, IQ) , 1) , > 18) =-IQ: K-K+l : K1=K1 + 1 

427 IF X ( Y2 ( J 7 II) +W 7 2 ) =0 THEN 433 

428 12= < Y2 ( J 7 II) +W) - (X ( Y2 ( J 7 II ) +W? 2) -J ) *10* IF I2<=0THEM 12=12+40 

429 IF 12 >40 THEN 12=12-40- 

430 FOR 13=1 TO 4: IF Y2 (X ( Y2 ( J > I 1 ) +W ? 2) 7 13) =12 THEN 432 

431 NEXT 13 

432 Y <X < Y2 ( J j ID+W.2) I3)=Y1 <X(Y2<J, Il)+W ? 2) 7 13) :Y2<X(Y2(J7 Ii)+W,2) 7 13 
) =~I3: G0SUB436: PRINTSY (X (Y2 < J 7 1 1 ) +W> 2) 7 13) , Bl* (X < Y2'( J,'I1 > +W, 2) 7 13) 

433 X ( Y2 ( J 7 1 1 ) +W? 2) = J : Y ( J 7 1 1 ) =X ( Y2 ( J > 1 1 ) +W? 1 ) : Y2 ( J 7 Il)=Y2iJ, ID+WsPRIN 
T@Y(J7 II) ,B1*(J7 II) 

434 X ( Y2 ( J? 1 1 > -Wf 2) =0: F'RINTQX (Y2 ( J * 1 1 ) — W* 1 ) ? " ":IF W=6 THEN 350 

435 RETURN 

436 S0UND1 7 6: S0UND3, 5: SOUNDSr 1 1 : S0UND6 7 2 : S0UND7 > 7: SOUNDS, 31 : S0UND97 31 s 
SOUND 1 0 , 24 : SOUND 12,80: SOUND 137-3 

437 RETURN 

438 PLAY (1,7, 1 7 12) 

439 F0RA=1T0100: NEXTA 

440 PLAY ( 1 7 1, 1,0) 

441 RETURN 

442 FOR L5=1T08:F0RL6=1TD8 

443 PLAY < 1 , L5.- L 6 , 12) : FQRL7=1TQ2: NEXTL7 

444 NEXTL 6 : NEXTL5: PLAY ( 1 , 1 , 1 , 0) : RETURN 

445 F0RL5= 1 T0L4 . . m : 

446 L3=L4+1 : PLAY ( 1 , L3, L5, 12) : F0RA=1T020: NEXTA: PLAY (1,1, 1 > 0 ) : FÖRA=1T020 

: NEXTA ‘ 

447 NEXT L5: RETURN 
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worden nur zurUckgesandt, wenn ausreichen- 
des Rückporto bolgelogt wurde. Jedor Ein- 
sender erklärt sich durch die Einsendung mit 
einer Veröffentlichung dos eingesandten Ma- 
terials ln der GENIE DATA und Im GENIE 
DATA Software Service einverstanden. 


IMPRESSUM 


Copyright (c) 1984 by Heinz HUbben, Clffset- 
druckorol und Vorla9, 5429 Marlenfels /Ts. 
Nachdruck, Vervielfältigung, Übertragung so- 
wie Spelchorung In EDV-Anlagen vorboton. 
Bei Bauanlcltungon und/odor Programmen 
kann für dio Fohlorfrolhoit keine Garantie 
Übernommen werden. 

Dio Meinung der einzelnen Autoren muH 
nicht mit der des Verlages UDereinstimmon. 
Anfragen an dio Redaktion bitte nur schrift- 
lich mit beigelegtom Rückporto. 

Kündigung der Abonnements: Zu Jedem Jahr, 
rechtzeitig, vor Endo des Jahres (6 Wochen). 
Jedes Abonnement verlängert sich nach Ab- 
lauf automatisch um ein Jahr. 

Sollto die GENIE DATA aus Gründen, die 
nicht In der Verantwortung des Verlages lie- 
gen, nicht oder nicht rechtzeitig erscheinen, 
bosteht kein Anspruch auf Nachlieferung. 

FUr eventuelle Schäden und/odor Folgeschä- 
den an Geräten und oder Bauteilen und/oder 
Oatenverlust kann kolno Haftung übernom- 
men werden. Der Nachbau unserer Bauanlei- 
tungon und/odor die Anwendung von Pro- 
grammen aus der GENIE DATA erfolgt auf 
eigene Gefahr. Alle Mitteilungen erfolgen nur 
für Amateur- und Hobby-Zwecke. Irrtum so- 


' : .V. V:- 


wie alle Rechte vorbohalten. Es kann kclno 
Gewähr dafür übernommen wordon, daB die 
verwendeten Schaltungen. Firmennamen, Wa- 
ronb'ezelctuiungan und alle anderen Angabon 
frei von Scnutzrecnton Dritter sind. 

Sämtliche Veröffentlichungen erfolgen ohne 
Berücksichtigung eines eventuellen Patent- 
schutzes und/oder Gebrauchsmusterschutzes. 
Hel ällon Artikel-Einsendungen gehen wir da- 
von aus. daß der Verfasser alle Rechte an der 
Einsendung besitzt, sowie geistiger Eigentü- 
mer ist. 

Über Jode Artikel-Einsendung freuen wir uns! 
Honorar: Für loden gedruckten Artikel be- 
zahlen wir pro Druckseite ein Honorar von 
50," DM. 

Wir gestatten Jedermann, einen Artikel aus der 
GENIE DATA zu entnahmen, und in einer 
anderen, nicht kommerziellen, Druckschrift 
zu veröffentlichen, unter der Bedingung, daß 
an der Gestaltung nichts verändert wird, das 
erwähnt wird, daß der betreffende Artikel 
aus der GENIE DATA entnommen wurde 
und daß man uns mindestens ein Exemplar 
der betreffenden Druckschrift kostenlos, so- 
fort nach Erscheinen, zur Verfügung stollt. 


Wir präsentieren 

für DISKETTE und CASSETTE : 

SUPER-BASIC ! 

Der u 

Compiler 

der neue Maßstäbe setzt ! 


SUPER-BASIC 

SUPER-BASIC 

SUPER-BASIC 


SUPER BASIC: 


Für DISKETTE und CASSETTE! 
Mit ARRAY-Verarbeitung! 

Das bringt kein anderer Colour- 
Genie Compiler. 

Ein Befehl wie z.B. DIM A S (3,2,3) 
wird korrekt übersetzt. 

Mit KOMPLETTER String- 
verarbeitung! 

z.B. LEFTS, RIGHT S, MIDS, 
INKEY Susw! 


SUPER-BASIC 

SUPER-BASIC 

SUPER-BASIC 

SUPER-BASIC 

SUPER-BASIC 


u 



Variablen wie im Basic! 
z.B. A9 = 14 oder AB S= "OTTO 
Programme bis 300 mal schneller! 
Auf Diskette nur DM 99,- 
Auf Cassette nur DM 89,- 
Selbstverständlich mit ausführlicher 
deutscher Bedienungsanleitung! 

NUR BEI UNS! 


Mühlbach Straße 2 
5429 MARIENFELS/Taunus 
Telefon 06772/1261 



gemini -10X 

Der neue STAR-Drucker. Für alle, die etwas zu drucken haben. Schneller 
und besser als bisher. 1 20 Zeichen pro Sekunde. Standard ASCII in normal 
und kursiv, internationaler Zeichensatz, Sonderzeichen, Blockgrafik und 
8 verschiedene Schrifttypen. Da hat man die Wahl. Auch beim Plotten: 480, 
920 oder sogar 1920 Zeichen pro Zeile auf Rollen-, Einzelblatt- oder 
Endlospapier. Mit Durchschlägen, wenn Sie wollen. Vertikal- und Hori- 
zontal-Tabulator, programmierbarer Zeilenabstand, Selbsttest und vieles 
andere mehr. 


Wenn Sie jetzt noch den Preis beachten, verstehen Sie vielleicht, warum 
wir auf unseren Neuen ganz schön stolz sind. 

Coupon 





